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Apple 

interpose ? 
tout cas J 



Possedez-vous 
vraiment votre Apple ? 

T d'abord, qu'en faites-vous ? Seulement du 
traitement de texte ? Ce n'est pas suffisant. 
Vous utilisez aussi un tableur ? Bien, mais 
encore ? Avez-vous deja dialogue avec votre 
autrement que par logiciel (du commerce) 
Non : quel dommage.,, pour vous, en 



Decouvrez done, avec nous, en programmant vous- 
meme de petites applications, la face cachee de votre 
ordinateur personnel, Possedez-le deux fois : finan- 
cierement, bien sur (a moins que vous ne I'ayez 
vole ! ) et..- moralement, si je puis m'exprimer ainsi ! 

II vous rendait deja la vie plus facile, mais il ne 
demande qu'a vous aider davantage. Son micrapro- 
cesseur ne se fatiguera pas, meme si vous I'entraTnez 
parfois dans des boucles sans fin. 

Peut-etre attendiez-vous tout de lui ? Desormais, 
vous saurez que certains de ses services passeront 
d'abord par votre imagination. .. et votre vivacite 
d'esprit. 

Programmer est un jeu. L'une des recreations les plus 
captivantes qui soient. L'ordinateur personnel est 
devenu — il faut s'en feliciter — un partenaire infati- 
gable, presque infaillible, ef quasi irremplagable 
quand on le connait bien. 

Pour vous, ce partenaire se nom me Apple, et ses pro- 
moteurs, deux jeunes americains geniaux, en ont fait 
un fruit a consommer toute I'annee. 
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Pour commencer 
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votre initiation 

au langage machine G5H 

iriiinMni|ii liaitBaiavfaiIllfa|1||||RMH||||g|iM 
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TREMPLIN MICRO 

paraTtra le 3 mai 




Pour 

commencer : 
votre 
special 
«Bonjour» ! 

ti permet, entre autres facilites 
que vous decouvrirez en le 
iopant et en i'utttisani, de 
modifier a volonte le nom du 
programme de demarrage. 
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CALL 62361 PRINT CHR* (21): CALL 64600: 
CALL 62071! PRINT 1 CATALOGUE 07ILITA1RE 
GUY-HACHETTE " : CALL 62067 
POKE 0,1s GOTO 575 

IF K - 21 THEN P = P Mi IF P > \X THEN P 
= i 

IF K = 8 THEN P = P - 1: IF P < 1 THEN P = 
CALL B31 

A = (P - 1) * B: FOR X = 1 TO B:J ■ A + Xl 
IF J > C THEN 45 

INVERSE ; PRINT CHR* <64 * NORMAL ; 
PRINT " B C*(J)5 NEXT 
H = 63 + X: VTAB 5; CALL - 86B: RETURN 

i 
I 

REM ***f****#****M**m********** 
REM *** Affichage centra *** 
REM *#****f****»iM#*#************* 

■ 

HTAB FN T(C)i IF RIGHT* (T*,8) = "RELANC 
ER" THEN PRINT LEFT* (T*, LEN (TO - toy 
FLASH ; PRINT ■RELANCER": NORMAL : RETURN 
PRINT T*: RETURN 

i 
i 

REM t**************m**t********* 
REM *** Petites routines 
REM *#**#*m#**mM******#»***K* 

■ 
i 

POKE B26,2: GOTO 120 
POKE 826,1 

CALL BOS: POKE 72,0: RETURN 
POKE 8i0,l: POKE 819,9: RETURN 
UftIT G,12B: POKE G1,Q:K = PEEK CB)i IF K 
= 79 AND C/. < > 1 THEN 475 



135 
140 
145 
150 
155 
160 
165 
170 
175 
160 
185 
190 



RETUI&J 

POKE 34,2: POKE 35,20: HOME : TEXT 
UTAB 22; CALL - 958: RETURN 
GQSUB 130 

IF K < > 13 THEN 620 
IF RL THEN RETURN 

■ 
■ 

REM *********I#*t*****t*»****»**** 

REM *** Lecture du catalogue *** 
REM **t#t#i****»M******»*»*»***»* 



195 



CALL 6460Q:T* = "Lecture du catalogue" + U 
*: mm 23: GOSUB 75 

FOR X = 15 TO I STEP - 1: POKE 819,X: &0S 
UB L20:O * - 34 
200 FOR Y - M TO N STEP 35:D =0+35 
205 Z = PEEK <Y + 33): IF Z = THEN 245 
210 C = C ♦ 1: IF PEEK <Y> = 255 THEN C - C - 
I: GOTO 240 

215 Z « PEEK (Y 4 2): IF 1 > 16 THEN 1 = 2 - 1 
28 

220 IF I > 4 THEN C = C - li GOTO 240 

225 CCD = 6i IF Z * THEN KB = 20: GOTO 235 

230 IF 2 = 4 THEN CtC> ' 52 

235 C*(C> - MID* <I*,D,30) 

240 NEXT ; NEXT 

245 U£ = C / 3: IF C > IX THEN LX = * 1 
250 IF C / B = INT <C / B) THEN L% = LZ - 1 
255 60SUB 125; GDSUB 120 :C* = HIM <I*,104,30 
): GDSUB 145 

VTAB 3: HTAB 1 : CALL - 868: PRINT '<B0NJ0 
UR> ACTUEL: ';: FOR Q = LEN <C*> TO 1 STEP 
- it IF ASC ( MID* <»,Q,1)> < > 160 TH 
EN C* = LEFT* <C*»Q>; CALL 62071: PRINT C* 



260 
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: CALL 62067s GOTO 275 


445 


VTAB Vi hTAB 3: PRINT CisJfl = h GOSUB 260 


265 


NEXT Q 




:HX = D: GOTO 285 


270 


FOR Q = 30 TO 1 STEP - h IF MID* (C$,Q, 


450 


■ 




1) < > ' n THEN Ci = LEFT* (Ci,Q M): IN 


455 


REM ****»***#********************* 




VERSE : PRINT Ci; NORMAL : GOTO 280 


460 


REM »»* Autre* options #** 


275 


IF RX. = 1 THEN RETURN 


465 


REM ********************* ********* 


280 


VTAB 4: PRINT Pi? C05UB 30 


470 


■ 
■ 


2B5 


GOSUB 145s IF L% = 1 THEN 335 


475 


GOSUB 140: VTAB 23: PRINT B <C) CATALOGUE < 


290 Ti ■ "Suite catalogue: <- ou -) H : 80SUB 145 




R> RELANCER <G> QUITTER" 




: VTAB 23: GOSUB 75: GOSUB 130: IF K = 13 T 


460 


GOSUB 130: IF K < > 67 AND K ( > 81 tm 




HEN 335 




K < > B2 THEN 480 


295 


IF K = 63 THEN 475 


465 


GOSUB 140; IF K = 67 THEN GOTO 575 


300 


IF K < > B AND K < > 21 THEN 335 


490 


IF K - 81 THEN Tf = ■ MERC I" : VTAB 23: GOBU 


305 


GOSUB 20: GOTO 285 




8 75: VTAB 19: END 


310 


■ 


495 Ri = n REL#JCER':RL = 1:D$ = * 1 " : VTAB 14: G 


315 


REM I***************************** 




OSUB 600: GOSUB 140 


320 


RBI *** Changer le Bon jour *** 


500 Ti = "SYSTEME RELANCE" : GOSUB 75: "/TAB 3: P 


325 


REM ****************************** 




RINT : CALL - 1370 


330 


■ 

« 


505 


• 
■ 


335 Ti = M> CHANGER ■ + CHRt (34) + "BON JOUR 


510 


REM ***** *#* ********************* 




u + CHRt (34) # 1 <2> RLN/EXEC/BRUN" : VTAB 


515 


REM *** Run - Exec ou Brun *** 




23: GOSUB 75: GOSUB 130 


520 


REM ****************************** 


340 


IF K = 63 THEN ?90 


525 


■ 

p 


345 


IF K = 49 THEN 360 


530 


GOSUB 145: VTAB 23: CX - 0: IF C(F) - 6 THE 


350 


IF K < > 5D THEN 335 




N Si = "RUN 1 : GOTO 545 


355 Ti = 'Quel est uotre choix ? B :C3£ - I: GOSU 


535 


IF C<F) = 20 THEN Si = "EXEC": GOTO 545 




B 145: VTAB 23: GOSUB 75: GOTO 365 


540 


IF C(F) = 52 THEN Si = "8RLN F 


360 Ti = Mndiquez !e nouueau <BGNJOUR>': GOSUB 


545 Ti = SI + Ui: GOSUB 75: PRINT CHRf (4);Si; 




145: VTAB 23: GOSUB 75 




Ci(F>: TEXT : HOME : END 


365 


GOSUB 130s IF L% > 1 AND (K * 21 OR K = 8) 


550 


■ 




THEN GOSUB 2fl: GOTO 365 


555 


REM ****************************** 


370 


IF K - 63 THEN 290 


560 


REM *** Affichage prtfliminaire *** 


375 


IF K < 65 OR K > H THEN 365 


565 


REM ****************************** 


380 


F=B*(P-l)+K- 64:V = K - 64 + 5: IF 


570 


• 
■ 




Cf(F) = Ci THEN 365 


575 


CLEAR :Ii = GOSUB 650: CALL 768 :» = 


385 


VTAB Vi HTAB 3: CALL 62071: PRINT Ci(F): C 




STRi < PEEK (B16)) 




ALL 62067: IF K = 1 THEN 530 


580 


G = 49152.K 163?5:N = 166Q5:G1 = 49168: D 


390 


GOSUB 145:Ti = 'Installer noiiueau Bonjour 




IM Cia05).C<105) 




(O/N)"! VTAB 23: GOSUB 75 


5B5 


DEF FN TCC) - (41 - LEN (Ti)) / 2:P ^ U 


395 


C/C = 1: GOSUB 130: IF K = 79 THEN 415 




B - 15 


400 


IF K = 63 THEN 290 


590 


POKE 34,2: FOR X = 1 TO 10:Pt = Pi + 


405 


IF K ( > 7B THEN 395 




': NEXT 


410 


VTAB V: hTAB 3: PRINT Ci<F): GOTO 265 


595 Ui = 1 - PATIENCE SVPI^Ot = " <0> POUR OPT 


435 


GOSUB 145 :Ti = "INSTALLATION" + Ui: VTAB 2 




I0NS":Ri = "DEBUT' 




3: GOSUB 75 


600 Ti = ' INSERE2 LA DISKETTE DAN 5 LE DRIVE ■ 


420 


GOSUB 125: GOSUB 115 




t &$; VTAB 10: GOSUB 75 


425 X07. = l^SOOjXiX = X0K + 1:X2K = XGZ + 30:X3 


605 Ti = "ic PRES5EZ < RETURN) POUR ■ * Rt: VTAB 




X = 16450 




12; GOSUB 75: IF K = 82 THEN 615 


430 


Ci = C$(F) s FOR X = XIX TO X2X 


610 


IF PEEK <0) = 1 THEN GOSUB 690 


435 


POKE X, ASC ( Wit <Ci,X - XOX.l)): NEXT i 


615 


VTAB 21: PRINT Pi:Ti « Di * ■ " t Ri: VTAB 




GOSUB 110 




23: GOSUB 75: POKE 35,20 
GOTO 150 ^ 


440 


POKE 818,0: POKE 819,13: GOSUB 115: POKE X 


620 




3K»C(F): GOSUB U0 


625 
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4 




Et aussi 
des 
Pokes 
utiles ! 



lis sont conn us, mats II est bon de les 
avoir sous la main, en cas de besoin. 

POKE 44452 T N + 1 ; POKE 44605, N 

N est le nombre de lignes du catalogue que vous 
desirez afficher a la fois. La valeur nornnale de N est 
21 . Si vous lui donnez par exemple une valeur de 1 0, 
vous pourrez consulter les 10 premieres lignes de 
votre catalogue, puis les 10 suivantes, etc. 

POKE 44460,88 : POKE 44461,252 

Jnutile de taper un HOME pour vider votre ecran : le 

DOS va s'en charger dans la joie. 

Les valeurs habituellessont47 et 174. 

POKE 44505,234 : POKE 44506.234 

Menne si vous avez efface un fichier par DELETE, il 
va reapparaTtre comme par enchantement dans 
votre catalogue,,, s il n'a pas ete ecrase, depuis. par 
un autre. Valeurs normales : 48 et 74. 



NOMBRE DE SECTEURS LIBRES DE VOTRE DISQUETTE 



Pour connaitre le nombre de secteurs libres d'une 

disquette (avec DOS 3.3 non modifie), tapez ce 

petit programme puis sauvez-le par un BSAVE 

CATFREE, A$300, L$84, 

Pour Tutiliser, deux solutions : 

BRUM CATFREE. et& (return) ou 

BLOAD CATFREE : CALL 768. puisS (return). 
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0318 — 
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0320 — 
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00 
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EF 


D8 
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A9 
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03 


AO 


10 


20 


D9 


03 


A2 


00 


0330 — 


8E 


25 


03 


OE 


26 


03 


AO 


38 


0338 — 


B9 


00 


95 


A2 


08 


OA 


90 


08 


0340 — 


EE 


25 


03 


DO 
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EE 


26 


03 


0348 — 


CA 


DO 


F2 


CS 


CO 


C4 


90 


E8 


0350 — 


AE 


25 


03 


AD 


26 


03 


CO 


03 


0358 — 


BO 


07 


CO 


01 


DO 


03 


8A A2 


0360 — 


00 


20 


24 


ED 


A2 


00 


BO 


77 


0368 — 


03 


20 


ED 


FD 


E8 


EO 


OD 


90 


0370 — 


F5 


A9 8D 


20 


2D 


FD 


60 
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D3 
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D4 


AE AO 


OC 


09 


0380 — 


02 


12 


05 
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CPTFH-OOUE DTILITFtlFE OUVHfiCHETTE 



«BCin-JGUR» fiCTUEL! lifMrill 



menu 

VEfllR 

disquette. nom« DEH10 

DISQUETTE, P0IT1 
EHVEFiS, ETIPROIT 
JOUR. DEfflO 

jour. nnniVER 

LISTROE. Lffl 

no fibres, dec influx 

FPIRE. ECRfln 
FfllRE. coin 
FfilREi LOT 
FfilRE. Fl 
FfllRE. F2 
FRIRE. fflEVEC 



H = AUTRE CAT 

= Fin 

= RELflrKER 



AUTRE T0U<_HE 



Changer menu 
Run - Exec 



Suite catalogue; 



ou -» 



630 
635 
£40 
645 
650 

655 



660 



£65 
470 
675 
680 
665 
690 



6?5 



700 



705 



REM *#ft«tt»#i*»*ft**«*ftt«***»ft«*«*t» 
REM *«# Routine en Ungigt .mac »*» 
REM *»***»*#*»*#*#**#*****#* *#**»* 



next 



FDR A = 768 TO BSD: READ B; POKE A,B 

i RETURN ;B = 
DATA 160,2,165,105,133,6,165,106,133,7,16? 
,240,145,6,200, 169,14,145,6,200,169,64,145, 
6,173,233,183,141,47,3,173,234,183,141,48,3 
,76,169,3,160,46,32,217,3,96 
DATA D,1,?£,1,O,17,15 V 251,183,O,64,O,0,1,O 
,254,96,1,167,5,133,34,169,20,133,35,32,8b, 
252, 16?, 2, 133,34, 169, 24, 133,35,96 

■ 

■ 

REM **f*#***#t#**#####**#t 

REM *** Quel Apple trauaille ? #*# 

REM &»t#tt*#I**#*»**M*#**####tf*#** 

I 
I 

vTA8 16jA = PEEK (64435) sO = PEEK (64446 
>: IF A =6 AND (D > 223 AND D < 240) THEM 
Tf = 'Vous disposez d'un Apple He's GOSUB 
75 

IF A = 56 OR A = 234 THEN T$ = "Vous dlspo 

sez d'un Apple II ou II+ B s GOSUB 75 

IF A = 6 AND = THEN Tf = "Vous dispose 

z d'un Apple Ik": GOSUB 75 

POKE 0,0: RETURN 



Les fleches < — et — > permettent de 
voir la fin du catalogue, qu cTen revoir le 
debut. II suffit de presser une autre tou- 
che pour acceder aux fonctions RUN — 
EXEC — BRUN. 

Le ? renvoie generaiement au catalogue 
en cours, bien qu'il n'en soit pas fait etat 
(je I'ai rajoute). 

Elim Inez les REM : vous accelererez le 
programme f ■ 
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TREMPLIN MICRO 



Des disquettes 
a votre nom ? 




Le DISK VOLUME de vos disquettes ne vous 
insp ire pas et vous airne riez remp la ce r 
cette mention par votre nom f ou par un 
raccourci du titre d'un programme ? 

Rien de plus facile avec le court utilitaire 
de la page 7 (on peut I'abreger en elimi- 
nant le blablabla et I'affichage). 

Une restriction // ne fonctionne comple- 
tement (c'est-a-dire ovec ecriture sur dis- 
quetfe) que sous DOS 3,3, 

Mais vous pouvez vous offrir des disquettes 
personnalisees sans taper de programme, 
et en respectanf le dStail des operations 
suivantes f en mode direct : 



Attention [ pour modifier votre DISK VOLUME 
de cette maniere, vous devrez ensuite initialiser 
une disquette vierge (pas celle sur laquelle vous 
travaillez) puis recopier vos programmes dessus. 



XT' 



Entrez dans le MONITEUR par un : 



Apres cette operation, si vous faites un 
CALL-151. puis B3AFL. vous obtiendrez ; 



j] ICALL-151 , . . suivi 


de RETURN et 


B3AF- 


AO C5 


LDY 


£$C5 


L 


B *B3AFL i 


. puis RETURN 




B3B1- 


D4 


??? 
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B3B2- 


D4 


??? 




m 


B3AF- 


AO C5 


LDY 


£*C5 


B3B3- 


C5 C8 


CMP 


*C8 


♦ 




CO D5 CC 


CMP 


*CCD5 


B3B5- 


C3 


??? 






B3B4- 


CF 


??? 




B2B6- 


CI C8 


CMP 


<*C8,X) 


i 


B3B5- 


06 AO 


DEC 


$A0,X 


B3B8- 


AO AE 


LDY 


£*AE 


i 


B3B7- 


CB 


??? 




83BA- 


C7 


??? 




• 


B3B8- 


D3 


??? 














B3B9- 


C? C4 


CMP 


£*C4 


AO C5 D4 D4 C5 C8 C3 CI 


CB AD AE C7 


* 










E 


T T E H C A 


H 


, G 




Seules ces 


lignes nous 


interessent En 












eff et ; 

















I AO C5 CD D5 CC CF D4 AO CB D3 C9 C4 
EHULOv K 3 I 



Si vous desirez remplacer DISK VOLUME 
par G. HACHETTE, vous tapez seulement 
en mode direct : 

HACHETTP , , , su i u i d'un RETURN 
5FORI-46010 TO 46000 STEP -1: H=M+i: PGK 
EI ,ASC<MID*<A$,M, OMZBsNEJCT 



VOICI LES VALEUKS HEXA 
DES CARACTERES : 



A 


B 


C 


D 


E 


F 


G 


H 


1 


J 


CI 


C2 


C3 


C4 


C5 


C6 


C7 


C8 


C9 


CA 


K 


L 


M 


N 





P 


Q 


R 


S 


T 


CB 


CC 


CD 


CE 


CF 


DO 


D1 


D2 


D3 


D4 


U 


V 


W 


X 


Y 


Z 








■ 


D5 


D6 


D7 


D8 


D9 


DA 


AE 


AD 


AO 


■ 



GUY-HACHETTE 



Implantation, par POKES, 
d u sous- prog ra m me en 
la ng age-machine (DATA). 



On charge la piste 2, sec- 
teur 2 de la disquette dans 
une memoire tampon : ici. 
c'est $2000 (8192 en 
DECIMAL). 

DISK VOLUME (qui nous 
interesse va de $20AF a 
$20BA. 8367 a 8378) 



On utilise 8 adresses de 
la page zero pour trans- 
mettre les donnees* 



On modifie aussi DISK^ 
VOLUME reel (SB3AF. 
5B3BA) de maniere a pou- 
voir eventuellement initia- 
liser une disquette avec ce 
nouveau DOS. 

Un detail ; on ecrit a Ten- 
vers, de $BA a sAF (46010 
a 45999). 
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100 

105 

110 

115 
120 

125 

130 
135 

140 

145 
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155 
160 
165 
170 
175 
180 
185 
19G 
195 



TEXT : NORMAL : PRINT CHfH 



FOR I = 
FOR 1 = 
INVERSE 
TTE 

VTAB 5 l 
PRINT I 
VTAB Si 
B 5: INPUT " 
IF LEN <N*> 



INSCRIRE SON 



748 TO 822: READ R 
1 TO 10:T$ ss T* + 
j PRINT " 
NORMAL 
PRINT "Pas plus de 
VTA8 20: PRINT T*: 
HTAB 1 : PRINT "N0M 
;N* ! IF N* = 
> 11 THEN 40 



C213 
POKE 



: HOME 
I,Rs NEXT 
; NEXT 

NQM SUR UNE D1SGUE 



m = LEFT* UN* + 11 
VTAB 8: HTA8 5s INVERSE 
VTAB 22: HTAB 1: PRINT 
REFAIRE => " i : GET R* : 
IF R$ < > "1" THEN 60 



1 1 car sc t£res ! 
CALL - 958 

" THEN 135 



HTA 



") f 12) 
: PRINT N*: NORMAL 
<1> BON A ENREOI STRER 
IF R* - n 2 a THEN 35 



<2> A 



REM ************************ *********** 
REM ** TRANSMISSION DES DONNEES PAR ** 
REM ** DES POKE AUX ADRESSES *6-$0B ** 
REM *********** ************************ 



7,2 



POKE 6,2: POKE 
POKE 11 ,32 

REM *6: PISTE 02 

:SL0T 6 C*16) 

REM «A & *0B : ADRESSE 
<*2000, soit *0020 a 

POKE 227,1: CALL 768: 
X = : FOR I - 8378 TO 

E I, 
X = 



POKE 8,1 s POKE 9,96: POKE 10,0s 
*7:SECTEUR 02 - *8:LECTEUR 1 - $9 



DECIMALE DE LA MEMO I RE TAMPON 
1 'envers. . .$20=32) 
REM *E3 LECTURE = 01 
8367 STEP - 1 sX = X * 1 : POK 
ASC ( MID* <N* t X f l)> 4 128: NEXT 
FOR I = 4601G TO 45999 STEP - 1 sX = X + ii P 



OKE I, ASC < MID* <N$,X,1)> + 128: NEXT 
POKE 227,2s CALL 768s REM *E3 ECRITURE = 02 
VTAB 22: HTAB 1: PRINT "<1> ECR1RE VOTRE NOM 
ERMINE =) GET R* : IF R* = "1" THEN 35 
IF N$ - THEN 160 
PRINT ! VTAB 22: CALL 
PRINT " VOUS PQUVEZ 
SQUETTES <"j: INVERSE 
RINT ") AVEC VOTRE NOM! " 
POKE - 16368,0: WAIT - 16384,128 
TEXT : NOME ; END 

REM *********************************** 
REM ** INITIALISE LA TABLE 108 ** 
REM ** DU RUITS ET APPELLE CELUI-CI ** 
REM *********************************** 



<2> T 



- 958 

INITIALISER TOUTES VOS 
: PRINT "VIERGES" } : NORMAL 




TREMPLIN MICRO 



L envers 
ne vaut pas 
vraiment 
I'endroit ! 



OICI un exemple de programme capable d'inte- 
resser jeunes et mains jeunes, 
Le principe est simple ; i'ordinateur retourne, 
en escamotant une lettre (ou un espace) le 
texte que lui a tape le joueur, 

Et les secondes s'ecoulent tandts que fan cherche la lettre 
litigieuse,,, Enfantin ? Pas sur.** quand celui qui pose la 
colle (on peut Stre deux) a tape du charabta f... 

Natureflement, cette version peut etre amefioree, par 
exemple en memorisont les parties... ou encore en utiti- 
sant le mode grophique. 

Ce programme peut etre facilement adapfe pour tourner sur n'importe quelle machine, y com- 
pri$ les plus petites... (si fan elimine les REM, sauf celle de fa ligne 20, ii n'occvpe qu'une place 
reduite en memoire ef n'utilise que quetques variables). 



ECRAN DE PRESENTATION 



LE JOUEUR TAPE UN GROUPE DE WOTS <0U DE 
LETTRES} DANS UNE FENETRE < 24 LETTRES AU 
MAXIMUM) - 

L" APPLE RESTITUE AUSSITOT LA LI GNE ,MAJ S 
A L'ENUERS. . ■ E T EN ELIMINANT UNE LETTRE 
Q'U'IL FAUT DECOUURIR DANS UN MINIMUM DE 
TEMPS - 

ON NE TAPE QUE DES LETTRES CAP I TALES ET 
PAS DE PONCTUATION- UTILISER LES FLECHES 
<- ET -> POUR LES ESPACES ET LES CORREC- 
TIONS, LA TOUCHE <ESC> POUR TERMINER. 



PHRASE EST TROP COURTE , ON EST 



QUAND LA 

PENALISE ET ON EST EGALEMENT PENALISE SI 
LE TEMPS MOYEN DE REFLEXION DEPASSE HUIT 
SECONDES PAR COUP ■ SML EST PLUS COURT , 
IL Y A BONIFICATION,.. 

PRESSER UNE TOUCHE 



a Cette 
™ entre 



page s'affiche 
chaque partie. II 
sufflt d'ajouter une ligne 
puis den modifier une 
autre pour qu'elle ne repa- 
raisse pas : 

40 JF PEEK (0)00 then 
G0SUB960 

45 POKE 0. : HOME : 
GOTO 220 



10 

20 

30 

40 
50 



PROGRAMME 



CLEAR : TEXT : PRINT CHR* <21>: HOME 

REM M TAPEZ 101 UN TEXTE DE 24 SIGNES MAXIMUM 

CHE POMME OWERTE POUR COMMENCER **** " 

FOR 1 = 1 TO 1 :Tf = T$ + " w : NEXT :T1$ ■ 

Tf (Tf,30) 



TOU 
LEF 



60SUB 940: HOME i GOTO 220 



a Attention I ne pas 
^ modifier les deux pre- 
mieres lignes {10 et 20) car 
l adresse de ia seconde est 
utilises par PEEK un peu 
plus loin. 



GUY-HACHETTE 



Utilise pendant la saisie. . 
quand la ligne est com- T' 
plete (depuis 490), 



Biocage et nettoyage de ^ 
la fenetre de saisie. 



On §crit par POKE sur la . 
ligne 6 de I'ecran ▼ 
(adresse : 1794) 
P = 278 represente la dif- 
ference entre DE (ecran. 
ligne 6. position 2) et le 
texte lu en memoire, dans 
le programme lui-rneme 
(ligne 20. REM " TAPEZ JCI. 
... etc). 



ESCAPE permet de ter- 
miner la saisie a n'tm- 
porte quel moment. II 
serait prudent d'interdire 
la sortie si H< 2 

430 IF A = 27ANDH>1 THEN 
H = H-1;G0TO560 



.... L 



60 
70 
80 
90 
J 00 



110 

120 
130 

140 
150 



160 
170 
180 
190 
200 
210 
220 
230 

240 
250 

260 

270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 



390 
400 
410 
420 
430 
440 

450 
460 
470 
480 



REM ********************** ************* 

REM ** QUELQUES SOUS-PROGRAMMES ** 
REM ******************** *************** 

TEXT : G0SUB 120: INVERSE : PRINT "ESCAPE SUP 11 \ : N 
DRMAl ! PRINT "" GET M*:A = ASC CMf): IF A = 27 

THEN H = H - li GOSJB 120: GOTO 560 
PRINT i GOTO 100 

VTAB 21: HTAB 1: CALL - 958: RETURN 

POKE 32,2: POKE 33,26; POKE 34,6; POKE 35,10: HOME 

i POKE 35,7: RETURN 
FOR S = 1 TO 4:X = PEEK (49200): NEXT : RETURN 
UTAB 6i HTAB 33; INVERSE i GOSUB 140: FOR ] = 1 TD 

25: POKE - 16368,0: WAIT - 16384,127: POKE - 16 
348,0 :X = PEEK C - 16384): 3 F X > 64 AND X < 91 TH 
EN 690 

NEXT I :T = T * 1 : PRINT T; NORMAL : GOTO 150 



REM *********************************** 
REM ** LIGNE ANN ON CANT LE DEBUT ft* 
REM *********************************** 

■ 

VTAB 4: PRINT Tl$: UTAB 12: PRINT Tl* 

INVERSE : FOR 1=5 TO 12: HTAB I: VTAB Is PRINT " 

" i ; HTAB 30: PRINT " ": NEXT : NORMAL 
GOSUB 130 
DE = 1794:P = 278 
FOR ] a DE TO 1819 :X = PEEK (49200): POKE !, PEEK 

<I + P) + 128 
NEXT 

3F P < 337 THEN P = P + 1 
GOSUB 140 

ARRET = PEEK (49249): IF AR > 12? THEN 380 
IF P = 337 THEN GOSUB 140: GOTO 250 
GOTO 260 

■ 
• 

REM *********************************** 
REM ** SAISIE DE LA LIGNE DE TEXTE »« 
REM *********************************** 

■ 
■ 

TEXT : VTAB 10: HTAB 33: PRINT "ESCAPE" : VTAB 11: 
HTAB 33: PRINT "POUR" : VTAB 12: HTAB 33; PRINT "FIN 
If?" 

GOSUB 130 

HOME sH = 1 :PL = 

PRINT " ■ ( . B " ; 



UTAB 7: HTAB H: PR] NT 



GET M*iA 



ASC (M$> 



IF A = 27 THEN H = H - 1 : GOTO 560 

IF A = 8 AND H > 1 THEN H = H - 1 : POKE H + 1793,1 

74: GOTO 420 

IF A = 32 OR A = 21 THEN A - 96: GOTO 470 
IF A < 65 OR A > 90 THEN 420 
GOSUB 140 

POKE H + 1793, A - 64 



TREMPLIN MICRO 



WHHHtfHHHUM*ji BnSnH * VMUBHB j miV||v „ B „„„„ nj 



490 

510 

520 
530 
540 
550 
560 
570 
580 
590 

600 
610 
620 
630 

640 
650 
460 
670 
480 
690 
700 

710 
720 



730 
740 
750 
760 

770 



780 

790 

800 
810 
820 
830 
840 
850 
860 

870 
880 
890 
900 



H - H + 1 : I F H = 25 THEN 100 
GOTO 420 

REM ******* *********************#*#*#** 
REM ** LETTRE ELIMINEE ET AFFICHAGE ** 
REM a************************* ********* 

■ 

SU = 1194 + INT < RND <1> * H) 
MH = H 

H = H * 1 793: FOR 3 = 1194 TO 1193 + MH 
IF I = SU THEN PL = 1 :EL = PEEK <H) 4 64: GOTO 61 


POKE I - PL, PEEK <H) * 128 
H = H - 1 
NEXT I 

TEXT s MTAB 14: HTAB 1 r PRINT "QUELLE LETTRE A ETE 
ESCAMOTEE ? *g: GOTO 150 

* 
■ 

REM *********************************** 

REM ** QUELLE LETTRE A ETE ESCAMOTEE ** 
REM *********************************** 

■ 

NORMAL : UTAB 14: HTAB it CALL - 868 
RE* = " GAGNE ! " :GA = SA + 1 : IF X < > EL THEN GA = 
GA - 3:PE * PE + 1 :RE$ = "PERDU! " i GOTO 720 
GOSUB 33 20 

"JTAB 14: HTAB 8: PRINT "C'ETAIT UN";; INVERSE : HT 
AB li PRINT RE$; : HTAB 19s PRINT CHR* (EL): NORMAL 

REM *******ACTUAL3SATI0N DU SCORE ** 

TJ = 6A + PE:LT = LT + MHtSC = GA * 1 * TJ * 8 - T 

- TJ * 24 + LT 
VTAB 1: HTAB 1: CALL - 868: PRINT ,J MOUS AVE? TAPE 

" I S INVERSE : PRINT LT;: NORMAL : PRINT 11 LETTRES 
" SCORE!";: INVERSE i PRINT SC : NORMAL 

VTAB 3: HTAB J: PRINT " -TEMPS: — PERDU: 

GAGNE: -" 

VTAB 3: INVERSE : HTAB 8: PRINT T;; HTAB 23; PRINT 
PE|; HTAB 38: PRINT GA: NORMAL 

* 

REM ******** *************** ************ 
REM ** AUTRE TOUR/AUTRE PARTI E/FIN ** 
REM *********************************** 

■ 

w 

VTAB 19i HTAB 1 : PRINT It 

VTAB 21s HTAB t; PRINT "<i> SUITE <2> NOUVELLE PAR 
TIE <3> FIN " ; : GET R$ 
GOSUB 120 

ON VAL (R*) GOTO 390,10,900 
GOTO 860 

TEXT : HOME ; END 



^ GOTO 100 pour indiquer 
™ au joueur qu'il doit pres- 
ser la touche ESCAPE, 



^ Pourquoi 1 194 ? parce 
que Ion va ecrire (a 
I'envers) sur la ligne 9 de 
I'ecran, dont I'adresse deci- 
mate est 1192 (mais on 
saute deux espaces, ce qui 
donne 1 194), 



~ I'air du 
fin de liste. 



vainqueur„< en 



TJ = TotaJ des coups 

Joues. 
GA - coups GAgnes. 
PE = coups PErtius. 
LT - Lettres utilisees 

(Total) 

MH = Longueur de [a 
ligne en cours. 
SC = Score CumuJe. 



MARQUE 



10 points par coup GAGN£ 
+ ou — x points, en func- 
tion du temps passe 
moyen. 

— x points si le nombre 
moyen de lettres est inf£- 
neur a 24. 



GUY-HACHETTE 



10 



Ce texte emploie Jes ^ 
capttales afin d'etre uti- 
lisable sur n'importe quel 
APPLE... mais it est mo- 
difiable. 

Naturellement. il convient 
de respecter minutieuse- 
ment les espaces. 



El fatlait bien que le fac- 
teur chance inter- 
vienne. Quand lordinateur 
escamote un espace* le 
joueur ne perd finalement 
que le temps de reflexion... 
s'il depasse 8 secondes, II 
suffit d appuyer immedia- 
tement sur n'importe 
quelle lettre pour avoir une 
bonification de temps ! 



Avec un enfant* l air du 
vainqueur joue un roEe sti- 
mulant indentable I 



9i0 
920 
930 
940 
950 
960 

970 



930 



990 



10 00 

5010 
1020 
1030 



1040 



1050 

1060 

1070 
1080 
1090 
1100 
1110 
35 20 
1 130 

1 140 
1 150 



REM *********************************** 
REM ** TEXTE DE PRESENTATION ** 
REM *********************** ************ 

■ 

T$<1) = "LE JOUEUR TAPE UN GRQUPE DE MOTS (OU DELET 

TRES) DANS UNE FENETRE <24 LETTRES AUMAXIMUM) ." 
Ti<2) = "L'APPLE RESTITUE AUSS1T0T LA L I GN E , MA I SA L 

/ ENVERS. . . ET EN ELIMINANT UNE LETTREOU'IL FAUT DEC 

OUVRIR DANS UN MINIMUM DE TEMPS." 
T$<3) = "ON NE TAPE QUE DES LETTRES CAPITALES ETPAS 
DE PONCTUATIGN. UTIL1SER LES FLECHES<- ET ~> POUR 

LES ESPACES ET LES CORREC-T J ONS , LA TOUCHE <ESC> P0 

UR TERMINER . * 

T*<4) = " QUAND LA PHRASE EST TROP COURTE , ON ESTPEN 
ALISE ET ON EST EGALEHENT PENALISE SILE TEMPS M0YEN 
DE REFLEXION DEPASSE HU1TSECONDES PAR COUP. S'IL E 
ST PLUS COURT, IL Y A BONIFICATION. . . 
UTAB 1: INVERSE : PRINT "L'ENUERS NE MftUT PAS VRAJ 
MENT L'ENDROIT! Lr : NORMAL 

FOR I ■ 1 TO 4: PRINT " "T*<I>; PRINT : NEXT 
GOSUB 1050 

ROME ! PRINT ! INVERSE : FOR I = 
UTAS 9 + (1 + 13) / 14: HTAB 14: 
MAIS ILYALEHASA 
" ,1 f 14> s NEXT : NORMAL 
PRINT : PRINT "IL ARRIVE QUE L'APPLE ESCAM0TE UN n 
;: INUERSE ! PRINT "ESPACE";: NORMAL : PRINT : PR1N 
T " ET LE COUP EST PERDU POUR V0US..." 
UTAB 23: HTAB 12: INVERSE : PRINT "PRE5SER UNE TOU 
CHE" : NORMAL 

CALL - 198: POKE - i 6368,0: WAIT - 16384,128,12 
7: POKE - 16368 f 0: PRINT s RETURN 



1 TO 56 STEP 14 
PRINT MID* < lf 
R D! 



REM ****************************** 
REM ** L'AIR DU VAINQUEUR ** 
REM ****************************** 

GOSUB 1160: GOTO 1150 

IF REST THEN FOR X = 1 TO REST: NEXT :REST = 0: R 
ETURN 

POKE 0,255 - PI: POKE 1 ,LE: CALL 771 
PI = 63:LE = 40: GOSUB 1130:PI = 111: 
= 141 S GOSUB 1 1 30 : PI = 159:LE = 50: 
T - 100: GOSUB 1 130 :PI = 1 41 :LE = 60 
= 15?:LE = 255 i GOSUB 1130: RETURN 
1160 POKE 771,173: POKE 772,48: POKE 773,192 
136: POKE 775,208: POKE 776,4: POKE 
78,1 1 POKE 779,240 
1170 POKE 780,8: POKE 781 ,202 : POKE 782,208i POKE 783,2 
46: POKE 784,166: POKE 785,0: POKE 786,76: POKE 787 
,3: POKE 788,3: POKE 789,96: RETURN 

CE PROGRAMME TOURNE SUR APPLE He et APPLE lie 



RETURN 
GOSUB 1130:PI 
GOSUB 11 30; RES 

GOSUB 1130 :PI 



777,198 



POKE 774, 
POKE 7 



1 1 
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Un certain jour 
de la semaine... 

Si quelqu'vn pretend que fe l* r Janvier 1583 etait un samedi, 
demandez a ce programme de vous te conftrmer. 

La France a adopt 4 te caiendrier gregorien depvis le 9 
dScembre 1582*.. qui fui suivi du lundi 20 decembre 1582. Le 
vier J 583 etait hten on samedL 

Est bissextile toute annee dont le millesime est divisible par 4, sauf si elle est terminee par deux et 
non divisible par 400 (1600 a et4 la seule annee seculaire bissextile. La prochaine sera Van 2000 I). 



QUEL JOUR TOM BE 
LE1" JANVIER 
1984? 



ANNEE 
JOUR 



= 1984 - 1 



: ANNEE +- 1 - 1582 + INT (AN/4) + (NT (AN/400) - INT 
(AN/ 100) 

Le premier et le demiei jours rj"une ann6e normals sent Identi 
ques tandis que I'annee bissextile finit un jour plus tard. Ca 
coule de source, pas vrai ? 

PREM = JOUR — INT (JOUR/7) ' 7 (Le est dimanche, le 1 lundi, etc) 



W QT RE JOUR ANN IUER S A I RE 



10 TEXT : PRINT CHR* (21): HOME 

15 XD$ = "00/00/1900" 

20 T* ■ "": FOR I * 1 TO 10:T$ = T$ + 



: NEXT iBt = H 



MERCRED3 JEUDI MENPREDI S 



25 PRINT T*i PRINT 
30 J$ = " DIMANCHELUNDl MARL) I 

AM ED I " :L « LEN <J$) 
35 GOTO 70 

40 FOR A = 3 TO 20 s BRUIT = PEEK (49200): NEXT : RETURN 
45 : 

50 REM *********************************** 
55 REM ** ECRAN DE SAISIE ** 

60 REM ************* ********************** 
65 : 

70 FOR I * 1 TO L STEP 8: PRINT MID$ <J*,l f 8) : NEXT 

75 POKE 32,29: PRINT : INUERSE : VTAB 4: PRINT B$: PRINT 

" QUEL JOUR w : PRINT H ETES-V0US M : PRINT " NE(E) ? n 

s PRINT B$: NORMAL 
80 POKE 32 ,0 

85 VTAB 12: PRINT T$! UTAB 20: PRINT T* 
90 GOTO 350 

95 FOR I = 1 TO 8:MI* « M1D$ < n DLMMJUS" f I , 1 ) :M2* = MID 
$ (" DLMMJUS" , I + 1,1): UTAB I + 3: HTAB 1; INVERSE ; P 
RINT M2*: NORMAL : "JTAB I i 2: HTAB Is PRINT Ml* 

100 G0SUB 40 

105 NEXT 

I 10 X ~ PEEK < 49249): REM TEST POMME 0UUERTE 
115 IF X < 128 THEN 95 
120 : 



PREM = O 

(done un dimanche) 



POKE 32,29 reduit la 
fenitre d ecran et per- 
met d'ecrire 10 carac- 
teres a partir de HTAB 
31. Pour eviter de sor- 
tir de I'ecran, il est bon 
a d'ajouter un POKE 
▼ 33,10. Attention I 
le total (29 + 10) ne 
doit en aucuh cas 
depasser 39. 
Un PRINT est indispen- 
sable a la suite de cette 
instruction, POKE 32.0 
(et eventuellement 
POKE 33,40) retablit 
]'ecran normal. 



^ II faut maintenir le 
™ doigt sur la touche 
POMME OUVERTE. 



GUY-HACHETTE 



1 2 



mmm 



Dans un program- ^ 
me plus long, elimi- " 
nez les REM qui oceu- 
pent de la place en 
memoire. 



Lecture des caracte- 
res en mode inverse 
et reaffichage en mode 
normal (quand on 
presse la touche 
qui fait reculer d'une 
case). 



Les IF interdisent ^ 
un certain nombre ^ 
de saisies erronees. du 
genre «32/ 13/2380*. 



VARIABLES 



AN ~ Annee 

MO - Mois 

VJ = Votre Jour 

JS = Les jours de ia 

semaine (8 caracteres 

ou espaces chacun) 

H et V sont utilisees 
pour HTAB et VTAB 



Ce programme 
tourne sur 
APPLE ][•& APPLE H c 



125 
130 
135 
140 
145 
150 

155 
160 
145 
170 
175 
180 

185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 

285 
290 
295 

300 
305 

310 
315 
320 
325 
330 
335 
340 
345 



350 



REM ************************* ********** 
REM ** DATE DE NAI SSANCE ** 

REM *********************************** 

■ 

H = 1 :V = 14:VD* = 11 ,! :VJ = 

VTAB Vi HTAB H: PRINT "VQTRE DATE OE NAI SSANCE : IF XD*: 
GOTO 170 

IF H = 3 THEN VD* = 11 " : RETURN 
VD* = LEFT* <VD* P H - 1>: RETURN 

PRINT S* 

VTAB Vi HTAB 26 + H; GET S*:S = ASC <S*> 
IF H = 1 OR S < > 8 THEN 190 
H = H - 1: POKE 1729 + H, PEEK (1729 + H) + 128: G0SUB 
155: IF PEEK (1729 + H) = 47 THEN 175 
GOTO 170 

IF S < 48 OR S > 59 THEN 170 
GOSUB 40 

IF H = 3 AND S > 51 THEN 145 

IF H = 2 AND VAL (VD* + St) > 31 THEN 165 

IF H - 4 AND S > 49 THEN 165 

IF H = 5 AND UAL ( RIGHTS (VD*,1) + S*) > 12 THEN 165 
IF H = 8 AND S < 53 THEN 165 
GOTO 230 

IF H = 2 OR H = 5 THEN S* = S* + "/"sH = H + 1 
IF H - 6 THEN S* = S* + " 1 " iH = H + 1 
VD* = VD* + S* 
INVERSE s PRINT S*s NORMAL 
IF H < 30 THEN H = H + 1 : GOTO 170 

■ 
■ 

REM *********************************** 
REM *** CALCUL DU JOUR ANNIVERSAIRE ** 
REM *********************************** 

AN = VAL C RIGHTS <VD$,4>>:M0 = VAL < MID* <VD*,4,2)) 

:JO - VAL C LEFT* <VD*,2)> 

IF MO < 3 THEN MO = MO t 12:AN = AN - 1 
VJ = VJ + JO + AN 

VJ = VJ + 2 * MO 4 INT ( .6 * (MO 4 1)) 4 INT (AN / 4) 

- INT (AN / 100) + INT (AN / 400> + 2 
VJ - INT < (VJ / 7 - INT (VJ / 7) > * 7 + .5) 

VTAB V + 2: HTAB 1: PRINT "CE JOUR-LA ETA IT UN "\i INV 

ERSE 

IF VJ - THEN VJ - 7 

PRINT MID* <J*,(VJ * 8) - 7,8) i NORMAL 

REM *********************************** 
REM ** ON RECOMMENCE OU ON ARRETE ** 
REM *********************************** 

■ 

PRINT s VTAB 22: CALL - 868: PRINT "<1> POUR UNE AUTR 
E DATE <2> POUR FINIR " ; : GET R*r IF R* < > "3" THEN 

TEXT : HOME s END 
PRINT s VTAB 22: PR 3 NT lh POMME OUVERTE POUR SAIS3R UNE 
AUTRE DATE" : GOTO 95 ft 
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fmifiHitMni 



Listage 
et edition 
en langage 
machine 



t'adresse $ FE63) qui disassemble 
pas davantage. 



Disassembler ef editer 20 instructions en langage 
machine est facile, fl suffit de passer en made monifeur 
par CALL'151 et RETURN, puis de taper CTRL-D PR£l f 
RETURN, et I'adresse (par exemple * 300 L, 300 LL pour 20 
ou 40 instructions, et ainsi de suite... mats toujours par 
graupe de 20 lignes disassemblies)* 

Notre programme permet d'editer une routine, a raison 
de 60 lignes par page, quel que solt le nombre de ses ins- 
tructions. II suffit de conn ait re son adresse en HEXADECI- 
MAL, et i'adresse suivant son dernier octet. 

On utilise pour cela un sous-programme de l J APPLE (a 
le nombre de tlgnes stockees dans f'ACCUAAULATEUR, &t 



10 LQMEM : 4350 

15 TEXT : NORMAL : PRINT CHR* <21) s HOME 
20 LI - 4320 sL2 = LI + 21:L3 = L2 + 5 
25 FOR I = LJ TO L3s READ R: POKE I,R: NEXT 
30 PI* ■ H n072N08QE096ql20Q136P160pl44" 

35 IWERSE : HTA8 5: PRINT "LISTAGE DE N INSTRUCTIONS EN 
LM" : NORMAL 

40 T* = " " : FOR 1 = 1 TO 10 sT* = Tt + tt - : NEXT s PRINT 

T*s POKE 34,3 

45 : 
50 
55 
£0 
65 
70 



REM a********************************* 
REM * SArsIE DES PARAMETRES # 

REM a********************************* 



75 

30 
B5 



VTAB 20: PRINT T$i VTAB 22: HTAB 1: PRINT "<?> PERMET 
DE REUENIR A L' ITEM PRECEDENT" s POKE 35,19 
UTAB 4: HTAB Is PRINT "SLOT DE L'IMPRIMANTE = - ; : GET 
6$: PRINT ttiSLY, = ASC <G*> - 48; IF SLY. < 1 OR SIX 3 
7 OR SLY. « 6 OR SUA = 3 THEN 75 
UTAB 6\ HTAB Is PRINT "TYPE DE CARACTERE <nNEqDPp) = 
"j; GET G$: IF G$ - THEN 75 

FOR I = 1 TO 32 STEP 4: IF G* < > KID* (PI*. 1,1) THE 
N NEXT ; GOTO 80 
90 im = UAL < MID* < P I * , I + 1,3)) :C* = 6*: PRINT C* H -"LM 
% 

95 VTAB 8: HTAB Is PRINT "LARGEUR DE LA MARGE (MAX^LMZ - 
40") = ";: INPUT " " \ G*:MAM = UAL (G$): IF MA'/ > LMX 
- 40 THEN 95 

100 M* = *L" 4 RIGHT* <<"000* + STR* <MAX)>,3) 
105 IF G* = u ?" THEN 80 

110 UTAB 10: HTAB 1; PRINT H DEBUT DE PROGRAMME EN HEXA = 

0000* ;s HTAB 30: CALL - 657 
115 AD = I : GOSUB 270 
120 IF AX = 63 THEN 95 
125 IF S = 1 THEN 110 

130 MTAB 12: HTAB 1: PRINT FIN DE PROGRAMME EN HEXA = 

O000";s HTAB 30s CALL - 657 
135 AD = 2s G0SUB 270 



^ LQMEM protege les 
27 octets du sous- 
programme en langage 
machine, 

a Parametres de I'im- 
^ primante APPLE. 



a Naturellement, si 
™ vous utilisez une 
imprimante differente. 
certaines de ces lignes 
seront a revoir. 



a II faut taper 4 carac 
™ teres HEXA 



pies : 
0A1F. 



0010. 



0300. 



GUY-HACHETTE 
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Ce programme tourne 
sur 

APPLE IN & APPLE lie 



IMPORTANT 



Quand vous aurez ^ 
tape votre program- ^ 
me. faites en mode 
direct, un 

PRINT PEEK (105) + 
PEEK (106) * 256 

Si le resultat depasse 
4319, modifiez d'au- 
tant la vaieur de LI 
(ligne 20). puis cede de 
LOMEM. qui devra etre 
superieure a L3 d'au 
moins 1. 



NJL est le nombre de 



lignes 

Vous 

difier. 



par page. ^ 
pouvez le mo 



On eorit a I'adresse ^ 
$3A - $3B {58 et ▼ 
59) I'adresse de depart 
du programme a 
editer. 



14G 
5 45 
150 
155 



140 



165 
170 



175 

130 
185 
190 
195 
200 
205 



IF AX = 63 THEN 110 
IF S ■ 3 THEN 130 
IF AD = 1 THEN 130 

VTAB 34: HTAB 1; PRINT " IMPRESSION OE "|: INVERSE : PR 
INT Ad) ; : NORMAL : PRINT 11 A ";: INVERSE : PRINT A<2) : 
NORMAL 

VTAB 16: PRINT "TITRE DU PROGRAMME (OU RETURN) 



IF TI$ = 
VTAB 16: 



..." s VTAB 18: HTAB 1 : INPUT 

THEN 130 
CALL - 958: PRINT "TITRE * : 



;TIf 



INVERSE : PRINT 



GET G*: PRINT 



IF G$ = 



TB;: NORMAL s PRINT " " 
?" THEN 160 

VTAB 18: INVERSE ! PRINT U L' IMPRINANTE EST-ELLE PRETE 
? ";: GET G$s PRINT " H : NORMAL 

REM ********************************** 
REM * EDITION SUR IMPRIMANTE APPLE * 
REM ********************************** 



POKE 34,22: POKE 50,128: PRINT CHR* ( 4) ■ PR£ 11 SLX ! PR3N 
T CHR* (27) + C*; : PRINT CHR* <27) + Mf 
210 IF TI* < > 11 " THEN PRINT CHR* <27)"X" CHR$ (14)TI* 

CHR$ (27) "Y" CHR* (15); PRINT 
215 NX = 0:NL = 60; IF TI* < > " H THEN NL = 60 - 4 
220 CALL L2:NX = NX + 1 : IF NX > NL THEN PRINT CHR* <12> 

:NX = 1 :NL = 60 
225 IF ( PEEK <58> * PEEK (59) * 256) < A(2) THEN 220 
230 PRINT CHR$ (12): PRINT CHR* <4)"PR£0" 
235 POKE 50,255: VTAB 22: CALL - 868: PRINT '<!> AUTRE LI 



STAGE <2> FIN DE PROGRAMME 
* * "J" THEN 45 
TEXT : HOME : END 



GET G*s PRINT 



IF G 



REM ********************************** 
RBI * ADRESSE HEX A MISE SUR 2 OCTETS * 
REM ********************************** 



240 
245 
250 
255 
260 
265 : 

270 S = 0: CALL - 10951a REM 
ACTERES OU BUFFER 
FOR X = 512 TO 515 :AX = PEEK (X) 
IF AX > 47 AND AX < 60 THEN POKE X 
295 

IF AX < 65 OR AX > 70 THEN S = 1 : RETURN 
POKE X - 506, AX - 55 

NEXT ! IF X < > 516 THEN S = 1 : RETURN 
CALL LI 



275 
280 

285 
290 
295 
300 



MISE A ZERO DU BIT 7 DES CAR 



506, AX - 48: GOT 



305 ACAD) = PEEK <6) + PEEK <7) * 256 

310 IF AD = 1 THEN POKE 58, PEEK <6)i POKE 59, PEEK (7) 
315 IF AD = 2 AND A(2) < A< 1 ) THEN S = 1 
320 RETURN 

325 DATA 165, 6, 10,10,10,10,101, 7, 133, 7, 165, 6, 10, 10, 10, 10,1 

01 ,9,133,6,96 
330 DATA 169,1 ,32, 99,254, 96 



TREMPLIN MICRO 



Les 

nombres 
decimaux 
et votre 
micro 



Rares sont les amateurs de program/nation qui cherchent 
a reinventer la poudre en concocfanf quelque fade imita- 
tion de logiciels qui onf depuis longtemps prouve leur 
efficacite : Visicalc et AAagicalc. 

Pourtant, vous avez certainement pondu f et assurement 
avec un reel talent, de pefits programmes dans lesquels 
le probleme de I'affichage de NOMBRES DECIAAAUX vous 
a donne du fil a retordre. 



Votre ordinateur personnel chert elimine les zeros les 
plus a gauche de la partie entiere des nombres (0.49 = 
.49), ce qui n'esf pas trop grave, et il se comporte bizarre- 
ment avec les chiffres qui sont a droite de la virgule (pardon : du point). Heureusement, 
il est possible de pallier la plupart de ses defaillances (il possede tellement de qualiies 
par ailleurs, qu'on ne va tout de meme pas lui reprocher de rares defauts I). 



EXEMPLE5 : A = 1 ,499 B 



1 ,501 C = 1 ,999 



ARRONDIR AU FRANC SUPERIEUR 



PRINT INT (A) " "INT(B)" " lNT(C) 
Affiche : "1 1 1" 

PRINT INT {A + 0.5) " " INT (B-hO.5) " " JNT (C + 0.5) 

Affiche : "1 2 2" (arrondi correct) 



PAS PLUS DE DEUX DEC1MALES 



Lesformules " A - INT (A #100) / 100 et 
A = ]NT(A*1Q)/ 10" 
sont terriblement efficaces. 



• PRINT INT (A * 1 00) / 1 00 ; " — 

"■— INT (C# 100)/ 100 

* 1.49 — 1.5 — 1.99 



INT (B * 100) / 100 



PRINT INT (A* 10) / 10 
INT (C * 1 0) / 10 



INT (B* 10)/ 10; " ~* 



1,4—1.5 



1.9 



^ Attention \ Si le chiffre 
" a arrondirest negatif. le 
resultat est surprenant. 
Ainst INT (— 4.33) = - 5 
Plus de probleme si Ton 
ame!iore fa formule : 
INT (ABS (- 4.33)) / SGN 
{— 4.33) = — 4 



^Pour 3 decimales. on 
modifierait ainsi la for- 
mulation : 

• A = 1.1234 

• PRINT !NT (A * 1000) / 
1000 

• 1,123 



GUY-HACHETTE 
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■astaa 

RUES 1 
BIBBS 

an*** 



vos 
ecrans 
en vous 
amusant ! 



Ce programme comprend : 

FAIRE.ECRAN 
{Basic $800) 

[3 FAIRE.LM 

(S6O0O — S6QEB) 

H FAIRE.MEVEC 
($340- $3AF] 

B FAIRE.F1 

($6100 — S63FF) 

Vous creerez vous-meme Ic 
tableau des fonctions : 

IH FAIRE.COM 

($400 $7l-f--) 

















1 












a 












R 












■ 










■ L 1 


! 1 


L J 


J 


■ 













ES ecrans consacres aux divers menus et explica- 
tions concernant le programme occupent souvent 
autant de place, en memoire, que les algorithmes 
imagines par l'auteur, et justifiant seuls le logiciel. 

Or, II est facile de se debarrasser de ces pages inutiles en 
confiant leur memorisation a la disquette. ou 11 sera tou- 
jours possible de les retrouver par un PRINT CHR${4) 
"BLOAD EC RAN, A 1024*' {ou AS400). 

S'il s'agit d"un ecran de commandes (c f est le cas de FAIRE- 
COM, dans le present programme), il est interessant de le 
ranger a une adresse prealablennent cboisie (la mernoire 
auxiliaire, par exemple), et de I'afficher instantanement par 
un petit sous-programme en langage-machine. 

La partie $60D9 a $60EB de FAIRE.LM. est utilisee pour de 
tels transferts. 

Vous savez comment operer ? Par exemple : 

Q $400 — $7FF vers 55000 

• POKE 6,0 : POKE 7,04 ($04/00. partie basse, puis par- 
tie haute, en decimal-., rnais 4 vaut toujours 4). 

• POKE 8,0 : POKE 9,80 ($50/00, mais 50 hexa = 80 en 
decimal). 

• CALL 24793 (id, adresse decimale de $60CF. notre 
sous-programme). 

$5000 — $57FF vers $400... 

• POKE 6.0 : POKE 7,80 : POKE 8,0 : POKE 9,04 : CALL 
24793. 

L'ecran est affiche, mais il est toujours memorise en 
$5000,*, ou vous le retrouverez quand bon vous 
semblera. 
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TREJMPUN MICRO 



lfKBIfllI|f|f||fl|||||if|flM||| U | MIIVI | PV||ia|| „ a , 




E FAIRE.ECRAN 



(VERSION 1-1) 



jo 

20 
30 
40 
50 
(SO 
70 
80 
90 
100 

no 

115 
120 



130 
HO 

ISO 

160 

J 70 

ISO 

3 90 

200 

210 

220 

230 

240 
250 

260 

270 



LOMEMj 25650 
ONERR GOTO H00 
TEXT : NORMAL : SPEEE>= 
DIM LXC41) i GOSUB 960 



255: PRINT CHR* (21 ) ; HOME 



REM a********************************** 
REM *** 5AISIE D'UN ECRAN TEXTE *** 
REM *****»******************#*********^ 

■ 

UTAB 1 : CALL 24751 

GET H$:AX = ASC (H$>; IF AX > 31 THEN 340 

IF AX = 6 OR AX = 9 OR AX ■ 14 THEN 340 

IF AX = 7 THEN GOSUB 810: GOSUB 890: CALL - 198s 

POKE - 16368,0: WAIT - 16384,128,127; POKE - 1636 

8,0: TEXT : GOTO 100 

IF AX - 13 THEN GOSUB 610: GOTO 340s REM RETURN 
IF AX ~ 16 THEN GOSUB 810s GOSUB 830: GOTO 100s RE 
M CTRL-P (Page de fonctions) 

IF AX m 3 THEN GOSUB 600: GOSUB 370: GOTO 340: REM 

CTRL-C CCentrage) 
IF AX = 20 THEN POKE 36,0: 
GOTO 100: REM CTRL-T (Cadre 
IF AX = 30 THEN CALL 24693: 
X (Cadre avec effatement de 



IF 
n> 
IF 



POKE 37,0: CALL 24696: 
sans eHacement) 

GOTO 100: REM CTRL-FLE 
page texte) 

AX = 12 THEN 540: REM CTRL-L (Load 6uen-tuel ecr-a 



AX 



m < 
IF AX 



PRINT 
R$.: IF 



= 5 THEN GOSUB 460 s VTAB 23: HTAB 1: 
VOUS EFFACEZ U RAIMENT <0/N) ? ";: GET 

> "Q" THEN GOSUB 820 i GOTO 90 
= 5 THEN TEXT ; HOME : GOTO 100: REM CTRL-E 
< EHacement con* i rme ) 

IF AX = 21 THEN CALL - 10 36: GOTO 1 10 s REM CTRL-U 
<D#placement ->> 
IF AX = 27 THEN GOSUB 810: GOTO 1030: REM Sortie d 
u programme auec ESC 

IF AX = 8 THEN CALL - 1008s GOTO 110: REM CTRL-H 
(^placement <-) 

IF AX = 17 THEN 1030: REM CTRL-G (Quitter) 

IF AX = 26 THEN YTAB 23: HTAB 1: GOTO 110: REM CTR 

L-Z <D£but de dernt&re ligne) 

IF AX - 1 THEN CALL - 998: CALL - 926: GOTO 110: 

REM CTRL -A CO£but de ligne en cours) 
IF AX = 2 THEN CALL - 998: CALL - 926: CALL - 1 
0Q8: CALL - 922: GOTO 110: REM CTRL-B (Fin de ligne 



M LOMEM s 25650 pro- 
tege Ees programmes, la 
table de caracteres. les 
pages rangees en memoi- 
rs,.* L "APPLE peut encore 
travailler I 



^ 7 = CTRL-G. On memo- 
rise la page de texte a 
ladresse 5000, puis on va 
vers la routine qui trans- 
fert la page 1 en Ht-RES 
page 1 (GOSUB 880). 



4 Si ['on tape CTRL-T 
™ (Flexe) on efface 3a page 
avant de pouvoir tracer un 
nouveau cadre. 



4 La sortie avec ESCAPE 
est facile, mais peut 
etre accidentel]e< Heureu- 
sement. en 1030. tout 
peut s'arranger I 



^ CTRL-Z permet d'aller 
vite fait au d^but de la 



derniere Eigne, 



GUY HACHETTE 
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E FAIRE.COM 



Quand vous aurez termine 
la frappe de votre pro- 
gramme, faites un "LOAD 
FAIRE-ECRAN ', puis SUp- 
primez (provisoirement) la 
partie "BLOAD FAIRE-COM, 
A540O0" de la ligne 960, 
Apprenez ensuite a user au 
mieux de votre programme 
en composant cette page 
de fonctions, puis faites un 
CTRL-5,., pour la sauver. 
sur disquette. sous le titre 
FAIRECOM votre (petit) 
logtciel est maintenant 
complet 



CTRL-K : meme effet lf fy 
que La f I eerie T de 
['Apple et CTRt-J meme 
effet que lafleche ^ 



Attention 3 voyez les ^ 
parametres de votre " 
tmprimante st vous desirez 
imprimer quelque chose. 



Routine de centrage ^ 
appelee par CTRL-C, a la • 
ligne 150. Ne fonctionne 
pas s i] y a un cadre, mais 
on peut tourner la diffi- 
culty en effacant celui-ci 
par un CTRL-T + E5PACE, 
cest instantane... de 
meme que pour refaire un 
nouveau cadre, alors pour- 
quois en priver? 



i-onoions po 55 itJLt 5 hue-: ce prograitiijie 



CTRL- 


L : 


: Load 


CTRL- 


5 = 


*- 5a ue 


CTRL- 


= 


= h in 


CTRL- 


t = 


= tf Facer 


CTRL- 


c = 


= Cent rer 


CTRL - 


I = 


: Inverse 


CTRL- 


F = 


= F I ash 


CTRL- 


n ■ 


: florma I 



CTRL- A = 
CTRL-B = 



D£but 
1- in de 



igne 
I igne 



AUTRE 5 DEPLACEfilEriTS 
avec les F leches, sans 
"CTRL",bien entendu. 



CTRL-G = 
CTRL-W = 



TRAPSE 
B5AUE 



PAGE1 
PAGE1 



COmiilAnDt:5: 

C I 'ecran en cours est memor ise en $5000) 



LiRL-P 



LiHL" X 



CTRL-y 



LHC'Hfc 



= impRE55IOn de fa PAGE1 Csimple!) 
= IIFRE55IOTI de la PAGE1 Cdouble} 
CTRL-I Cou Flexe pour eFFacement) 



280 IF AX « 11 THEN CALL - 998: GOTO 110; REM CTRL-K 

(Ligne au-dessus> 
290 IF AX = 10 THEN GOSUB 610: CALL - 922: GOTO 110s 

REM CTRL-J (Ligne suiuante) 
300 IF AX = 19 THEN 520: REM CTRL-S (Save *cran texte) 
310 IF AX = 23 THEN 530: REM CTRL-W (Bsaue exran graph i 

que) 

320 IF AX = 24 THEN 60SUB 810: GOSUB 710: GOTO 100: RE 

M CTRL-X (Impression HGR simple) 
330 IF AX = 25 THEN GOSUB 810: GOSUB 700: GOTO 100: RE 

M CTRL-Y (Impression HGR double -format) 
335 IF AX < 32 THEN 3 10 

340 GOSUB 600: IF P = 23 AND A = 39 THEN POKE 2039, AS 

C (H*) + 128: GOTO 110 
350 PRINT H*;* GOTO 110 
360 i 

370 FOR I = TO 40:LX(1> = 160: NEXT 

380 L = UAL ( MID$ <E*,(F + 1) * 4,4)): FOR I = TO 39 

:LX<I) = PEEK < I + L) : NEXT 
390 FOR 1 = TO 39: IF LX<I) < > 160 THEN D = 3 : GOTO 
410 

400 NEXT 

410 FOR I - 39 TO STEP — Is IF LX(I) < > 160 THEN F 

= Is GOTO 430 
420 NEXT 

430 B = F + 1 - DiC = (39 - B) / 2; IF D < > 1 THEN C = 
C + 1 - D 

440 POKE 37, P; POKE 36,0: CALL - 868; FOR I = D TO F; 

POKE I + C + L,LX(I): NEXT 
450 RETURN 

460 NORMAL : GOSUB 810: UTAB 21: HTAB i: CALL - 958: P 
RINT T*! RETURN (Suite page 21) 
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TREMPLIN MICRO 




ttlJIfcttt utt* 




FAIRE.LM 



6000- 


A6 22 


LDX 


6002- 


8A 


TXA 


6003- 


85 iC 


STA 


6005- 


20 24 FC 


JSR 


600B- 


AO 00 


LDY 


600ft- 


A3 2B 


LDA 


600C- 


85 2A 


STA 


600E- 


A5 29 


LDA 


6G10- 


29 03 


AND 


6012- 


05 E6 


m 


6014- 


85 2B 


STA 


6016- 


11 28 


LDA 


6018- 


C9 20 


CMP 


601A- 


BO 05 


BCS 


601C- 


6? CO 


ADC 


601E- 


CE 52 60 


DEC 


6021 - 


CP 60 


CMP 


6023- 


80 05 


BCS 


6025- 


69 80 


ADD 


6027- 


CE 52 60 


DEC 


602A- 


C9 80 


CMP 


602C- 


80 05 


BCS 


602E- 


69 40 


ADC 


6030- 


CE 52 60 


DEC 


6033- 


C9 AO 


CMP 


DUod 


Of 'l Q 1 




6037- 


29 7F 


AND 


6039- 


18 


etc 


603A- 


» 


ROL 


603B- 


2A 


ROL 


603C- 


2A 


ROL 


603D- 


48 


PHA 


603E- 


2A 


ROL 


603F- 


29 03 


m 


6041- 


09 60 


ORA 


6043- 


BD 50 60 


STA 


6046- 


66 


?[A 


6047- 


29 F8 


AND 


604?- 


8D 4F 60 


STA 


604C- 


A2 00 


LDX 


604E- 


BD F8 62 


LDA 


6051- 


49 00 


EOR 



$22 

$1C 

$FC24 

£$00 

m 

$2A 

$29 

£$03 

$E6 

$2B 

($28) ,Y 

£$20 

$6021 

£$C0 

$6052 

£$60 

$602A 

£$B0 

$6052 

£$80 

$6033 

£$40 

$6052 

£$AQ 

$6068 

£$7F 



£$03 
£$60 
$6050 

£$F8 
$60 4F 
£$00 
$62FB,X 
£$00 



6053- 


EA 


NOP 




6054- 


EA 


NOP 




6055- 


91 2A 


STA 


($2A) P Y 


6057^ 


1 8 


CLC 




60 jB 


AD 2B 


LDA 


$2B 


MCA 


6? UH 


ADC 


tf 04 


60 5C- 


nc fin 

85 2B 


STA 


$28 


605E- 


EE 






/ n cr 

60 5F- 


E0 0B 


CPX 


£$08 


t n 1 1 

6061" 


90 EB 


BCC 


$604E 


6063- 


A9 00 


LW 


£100 


oUoj 


or\ in 
ou Jt 6U 


OIH 


/.■'III.'! 

$6052 


' il jHO — 


LU 


INY 




/ft 




CrY 


$2j 


60 68- 




BCC 


$600A 


■' i'l ■' I'l 


ft 6 1 L 


1 l\v 


$lC 


oUor- 


to 


Tin/ 
INX 




y mn 
60/0- 




CPX 


$23 


6U/2- 


on dc 
70 DC 


8CC 


> JflJlA 

V6002 




Jift 
6U 


RTS 




6U/D 


T-fi ttj cr 


too 




/mo 


on fir rrs 
20 0C fu 


JSR 


it f r\ fi n 


6U/D 


An 

K£ UU 


i rw 
LDX 


£$0E] 


6U/U- 


on nn n^ 
tU UU Ul 


blA 


ri fl -i fl V 

$0400 ( X 


i ii' i'i 
oUoll 


on i\n n7 
YD UU U/ 


pTA 

b) ft 


$U7DD,X 


i n 


rn 
ttf 


J L PL/ 

INX 




^ fl OA 


tU 2o 


CPX 




-■' li' ' '■' 


hn ce. 
UU PD 


ENt 


$6070 


6088- 


A2 0D 


LDX 


£$00 


608A- 


99 00 04 


STA 


$0400 ,Y 


6D8D- 


n n nn nc 

99 00 05 


STA 


$0500 ,Y 


l nnn 


nn nn n i 

9? DO 06 


STA 


$0600 t Y 


6093- 


□ d nn m 

99 00 07 


STA 


$0700 ,Y 


6Q96- 


EB 


INX 


6097- 


EG flu 


CPX 


£$0C 


6u y y- 


cn rro 
hU Lit* 


n r n 

8E0 


a i fi An 

$60 A 3 


6U yy- 


48 


ni i .-. 

PHA 




60 9C- 


B±> A3 60 


LDA 


$60A3 P X 




AO 

Ao 


TAY 


A ft Aft 


DC 


Dl A 

PLA 




-'ir 




BNt 


$60 6A 


60 A3- 


/ n 

60 


RTS 




60A4- 


27 






60A5- 




PLP 




60 A 6- 


4F 






60A7- 


50 77 


SVC 


$6120 


60A9- 


BD 


??? 




/AAA 

60AA- 


A7 


??? 




6DAB- 


A8 


TAY 




60AC- 


CF 


??? 




60AD- 


DO F7 


GNE 


$60A6 


60AF- 


A9 BB 


LDA 


£$BB 


6081- 


85 36 


STA 


$36 


60B3- 


A? 60 


LDA 


£$60 



60B5- 
6GB7- 
60BA- 
60BB- 
60BD- 
60BF- 
60C1- 
60C3- 
60C5- 
60C7- 
60CA- 
60CC- 
oOCE- 
60CF- 
60D1- 
60D4- 

Mm- 

60D9- 
6DDB- 
60DD- 
60DF- 
60E1- 
60E2- 
60E4- 
60E6- 
60E8- 
60E9- 
60 EB- 



B5 37 
20 EA 03 
60 

C9 86 
F0 QB 
C9 BE 
F0 0C 
C9 8? 
FO OD 
4C F0 
A9 7F 
85 32 
60 

A9 FF 
4C CC 
A9 3F 
4C CC 
A2 04 
AO 00 
Bl 06 
91 08 
88 

DO F9 
E6 07 
£6 09 
CA 

DO F0 
60 



STA 
JSR 
PTS 
CHP 
BEQ 
CMP 



$37 
$03EA 

£$86 
$60 CA 
£$8E 



8EQ $60CF 



CMP 
BEG 



£$89 
$60D4 



60 



All 



BSAVE FAIRE.LM 



JMP $FDF0 
LDA £$7F 
STA $32 
RTS 
LDA 
JMP 
LDA 
JMP 
LDX 
LDY 
LDA 
STA 
DEY 
BNE 
INC 
INC 
DEX 
BNE 
RTS 

A$6000, L$EC 



£$FF 
$60CC 
£$3F 
$60CC 
£$04 
£$00 
($06) ,Y 
($0B),Y 

$60DD 
$07 
$09 

$60DB 



S FAIRE.MEVEC 

Ce programme sauve, puis res- 
taure les 8 octets de MEV 
reserves aux divers peripheri- 
ques. Peu utile sur TAPPLE He , 
mais indispensable sur le Ik . 



0340- A2 
0348- BD 
035B- 05 
0358- 18 
036Q- BD 
0368- 07 
0370- 38 
0378- A2 
0380- BD 
0388- 03 
0390- F8 
0398- BD 
03A0- 03 
03A8- F8 



00 8D 78 
FB 04 9D 
9D 10 03 
03 BD 78 
F9 06 9D 
9D 30 03 
03 EB E0 
00 BD 00 
08 03 9D 
9D 78 05 
05 BD 20 
28 03 90 
9D 7B 07 
07 E8 E0 



04 9D 
0B 03 
8D F8 
06 9D 
28 03 
BD F8 
08 DO 
03 9D 
F8 04 
BD 18 
03 9D 
F8 06 
8D 36 
08 DO 



00 03 
BD 78 
05 9D 
20 03 
BD 78 
07 9D 
C8 60 
78 04 
BD 10 
03 9D 
78 06 
BD 30 
03 9D 
CB 60 



BSAVE FAIRE.MEVEC, A$340 H LS70 
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Attention I Une page 
texte occupe 1024 ™ 
octets (6 secteurs de la dis- 
quette) et une page HGR 
8192 octets (34 secteurs) I 



Si le titre n'existe pas. ^ 
un message d'erreur 
s'aff iche pu is on vous 
demande si vous desirez le 
catalogue. 



Si vous ne possedez pas ^ 
une tetle carte, il vous 
faudra incorporer une rou- 
tine de copie d'ecran dans 
votre programme. On n'a 
pas prevu la copie d'un 
ecran texte. 



Les adresses des zones ;, 
interessees par le trans- 
fert sont Pokees en page 0. 



470 : 

480 REM *********************************** 
490 REM **** SAUE TEXTE 0U BSAVE PAGE 1 ** 
500 REM *********************************** 
510 ! 

520 GOSUB 550: PRINT CHR* C A > "8SAUE" F* H ,A1 024 , LI 024" : 

TEXT : UTAB 1 : GOTO 310 
530 GOSUB 550; PRINT CHR* (4) "BSAVE"Ff" , A81 92 , L81 92" s 

TEXT ; UTAB 1 : GOTO 110 
540 CALL 832: GOSUB 550 : PRINT CHR* < 4) " BL0AD"F* n , Al 02 

4"s TEXT : NORMAL ; UTAB 1: HTAB Is CALL 888: GOTO 1 

00 

550 GOSUB 460 

560 HTAB 1; VTA8 23: INPUT "TITRE DE L'ECRAN " ;F$: IF 

F$ * " ,J THEN GOSUB 820: GOTO 630 
570 GOSUB 820 

580 UTAB ii PRINT tr H e POKE 34,23: POKE 50,128 
590 RETURN 

600 P a PEEK <37):A = PEEK (36); RETURN 
610 P = PEEK <37>: IF P = 23 THEN 630 
620 RETURN 

630 CALL - 198: POP : GOTO 100 
640 : 

650 REM *********************************** 
660 REM *** IMPRESSION DE LA PAGE GRAPH *** 
670 REM *********************************** 
680 : 

690 REM CES CODES SONT CEUX DE LA CARTE BUFFER DE BIP 
700 PRINT : PRINT CHR* <4>»PR£l": PRINT CHR* <27>*LO0 

5 B : PRINT CHR* (9) "GLED" : GOTO 720 
710 PRINT : PRINT CHR* <4>"PR£1": PRINT CHR* <27)"L00 

5 n : PRINT CHR$ <?)"GLE" 
720 PRINT CHR* (12): PRINT CHR* <4)"PR£0"s RETURN 
730 POKE 51,128 

740 GOSUB 820: GOSUB 460 t PRINT "TAPER <C> POUR LE CATA 
LOGUE "}: GET R* : IF R* ~ "C" THEN TEXT : PRINT ; 
HOME : PRINT D*" CATALOG" : . GET R* : PRINT : GOTO 740 

750 GOSUB 820; GOTO 100 

760 : 

770 REM *********************************** 
780 REM *** DE PLACEMENT DES ECRANS *** 
790 REM *********************************** 
800 ! 

810 POKE 6,00: POKE 7,04: POKE 8,00: POKE 9,80: CALL 24 
793! RETURN 

820 POKE 6,00: POKE 7,80: POKE 8,00: POKE 9,04: CALL 24 
793: RETURN 

830 POKE 6,00: POKE 7,64: POKE 8,00: POKE 9,04: CALL 24 
793: POKE - 16368,0: WAIT - 16384,128,127: POKE - 
16368,0s GOTO 820 

840 i 

850 K = 1 : REM HI -RES PAGE J 

860 HOME : HTAB 12: INPUT "FONT ";F*: IF F* = THEN 

RETURN s REM CARACTERES GRAPHIQUES (Suite page 23} 
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FAIRE.F1 



Je sais, c'est indjgeste, mais 
il faut y passer.,, sans se 
tromper, Notez que vous 
pouvez utiliser \es FONTES 
de I'utiiitaire TOOLKIT 
APPLE (non accentuees). 
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MEMORISATION : BSAVE FAIRE.F1 . A$6100. LS300 



6100- 


00 


00 


00 


00 


00 


00 


00 00 


/Ann 

6200- 


ft A 

04 


OC 


3E 


J V"ii 

/6 


23 


33 


or - 

2E 


00 


6300- 


ri p- nr no nn 

OC 0C 08 00 


00 


nn nn nn 

00 00 00 


6108- 


00 


oc 


c 


OC 


00 


OC 


0C 00 


6208- 


[JO 


IE 


23 


23 


3F 


23 


On 

23 


ft ft 

00 


6JU8- 


nn nn op oo 

00 00 3E 23 




o o or ft ft 

33 2E 00 


6110- 


80 


36 


12 


00 


00 


1-1 J-l 

00 


00 00 


6210- 


00 


4 JF 

IF 


23 


ll" 


oo 

23 


23 


IF 


00 




ft n no id m 

00 03 IB 27 


rv'i 


OO ip" nn 

23 IF 00 


61 IB- 


Ii l-i 

i)U 


16 


37 


16 


16 


37 


a j nn 

16 00 


6218- 


00 


3C 


n i 


03 


no 


n o 

02 


Of> 

3t 


n n 

00 


6318- 


nn nn op no 

DD DO 3t D3 


03 


n ft or - nn 

03 3E 00 


6120- 


DO 


OH 


3E 


81 


4 1 " 


20 


tr no 

IF 08 


6220- 


n n 

00 


OF 


13 


oo 
23 


oo 

23 


4 O 


ft jF 

OF 


00 


6320- 


nn on op oo 

DO 20 2E 33 


oo 

23 


ft ft ftp - nn 

23 3E 00 


6I2B- 


00 


ri —t 
If 


17 


nn 

08 


04 


3A 


39 DO 


6228- 


00 


3F 


n ''i 

03 


IF 


03 


ft o 

03 


Ol" 

3F 


n ri 

00 


6328- 


n n n n or - oo 

GO 00 3E 23 


■ r " 
IP 


03 3E 00 


6130- 


Ci Fi 

B 


14 


IE 


23 


23 


23 


i r nn 

IE 00 


6230- 


00 


3F 


ri j -- . 

03 


IF 


Pta ft 

03 


03 


n ft 
03 


00 


i oon 

6330- 


nn if n i i r 

00 IE 03 IF 


(J ,> 


An /i -r\ i%, jo. 

03 03 00 


6138- 


00 


(ft; 


04 


no 


00 


00 


00 00 


6238- 


00 


3C 


02 


33 


33 


22 


1C 


00 


6338- 


00 00 IE 23 


33 


2E 20 IF 


6140- 


00 


30 


08 


OC 


OC 


0B 


30 00 


6240- 


00 


23 


23 


3F 


23 


23 


23 


00 


6340- 


00 03 IB 27 


23 


23 23 00 


6148- 


00 


03 


04 


OC 


OC 


04 


03 00 


6248- 


00 


IE 


ac 


DC 


OC 


OC 


IE 


00 


6348- 


00 0C 00 OC 


0C 


0C DC 00 


6150- 


01) 


?A 


1C 


36 


1C 


2A 


00 00 


6250- 


00 


3C 


IB 


18 


IB 


19 


OE 


00 


6350- 


00 18 00 IB 


18 


18 18 DE 


6158- 


on 


08 


08 


3E 


08 


08 


00 00 


6258- 


00 


13 


08 


0? 


08 


13 


23 


00 


6358- 


00 03 23 13 


OF 


13 23 00 


6160- 


00. 


00 


00 


00 


00 


06 


06 02 


6260- 


00 


03 


03 


03 


03 


03 


3F 


00 


6360- 


00 0C 0C OC 


OC 


0C 0C 00 


6168- 


on 


00 


00 


IE 


00 


DO 


GO 00 


6266- 


00 


IF 


2B 


ze 


28 


28 


2B 


00 


6368- 


00 00 IF 28 




26 28 00 


6170- 


00 


00 


00 


00 


00 


06 


06 00 


6270- 


00 


IF 


23 


23 


23 


23 


23 


00 


6370- 


00 00 IF 23 


23 


23 23 00 


6178- 


00 


20 


10 


OB 


04 


02 


01 00 


6278- 


00 


IE 


23 


23 


23 


?3 


IE 


00 


6378- 


00 00 IE 23 


23 


23 IE 00 


6180- 


00 


3E 


83 


28 


27 


23 


IE 00 


6280- 


00 


IF 


23 


IF 


03 


03 


03 


00 


6380- 


DO 00 IF 23 


23 


21 IB 03 


6188- 


00 


18 


IE 


18 


18 


18 


18 00 


6288- 


00 


IE 


23 


23 


23 


23 


12 


3C 


63GB- 


00 00 3E 23 


23 


33 2E 20 


6190- 


00 


IF 


30 


98 


OC 


07 


3F 00 


6290- 


00 


IF 


23 


IF 


23 


23 


23 


00 


6390- 


00 00 IE 03 


03 


03 03 00 


6198- 





3F 


18 


IE 


30 


BO 


IF 00 


6298- 


00 


IE 


07 


IE 


36 


38 


IF 


00 


6398- 


00 00 3E 03 


IE 


30 IF 00 


61A0- 


00 


DC 


06 


IB 


IF 


18 


18 00 


62A0- 


00 


3F 


DC 


OC 


OC 


DC 


OC 


00 


63A0- 


OO 03 03 IF 


03 


03 IE 00 


61AB- 


00 


BF 


03 


IF 


30 


30 


9F 00 


62AB- 


oo 


23 


23 


23 


23 


23 


3E 


00 


63A8- 


00 00 23 23 


23 


23 IE 00 


61BD- 


00 


1C 


06 


IF 


23 


23 


IE 00 


62B0- 


00 


23 


23 


23 


26 


1C 


IB 


DO 


63B0- 


00 00 23 23 


23 


16 DC 00 


61BB- 


m 


3F 


IB 


OC 


06 


06 


06 00 


62B8- 


DO 


2B 


28 


2B 


26 


1C 


18 


00 


63BB- 


00 00 28 2B 


28 


2B 36 00 


61CQ- 


00 


IE 


A3 


IE 


23 


23 


IE 00 


62C0- 


00 


23 


16 


OC 


OC 


16 


23 


00 


63C0- 


00 00 23 16 


OC 


16 23 OO 


61C8- 


00 


IE 


A3 


23 


3E 


18 


0C 00 


62CB- 


00 


23 


23 


III 


OC 


OC 


IE 


00 


63C8- 


00 00 33 23 


23 


16 OC 07 


6100- 


00 


00 


06 


06 


00 


06 


06 00 


62D0- 


00 


3F 


18 


OC 


06 


03 


3F 


00 


63D0- 


00 00 3F 18 


OC 


06 3F 00 


61D8- 


00 


00 


06 


06 


00 


06 


U 02 


62DB- 


U) 


08 


36 


11 


21 


59 


26 


00 


63D8- 


08 OC 3E 23 


IF 


03 3E 00 


61E0- 


on 


24 


12 


0? 


12 


24 


00 00 


62E0- 


00 


00 


3E 


03 


03 


03 


3E 


18 


63E0- 


04 0C 23 23 


23 


23 IE 00 




00 


DO 


IE 


00 


9E 


00 


00 00 


62E8- 


10 


08 


36 


IF 


3F 


7F 


36 


00 


63EB- 


84 8C 8E A3 


9F 


33 BE 80 


61F0- 


00 


0? 


12 


?A 


12 


09 


00 00 


62F0- 


0B 


14 


3E 


23 


23 


33 


2E 


00 


63F0- 


08 34 3E 23 


IF 


03 3E 00 


61F8- 


00 


IE 


A2 


10 


08 


00 


08 Q0 


62F8- 


7F 


00 


00 


00 


00 


00 


00 


00 


63FB- 


14 00 3E 23 


IF 


03 3E 00 
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Installation de FAIRE.F1 ^ 
ou autre fonte de carac- " 
teres, si vous le desirez. 



Installation des sous- 
programmes et de la 
page de fonctions. 



Acfresses decimales des . 
23 lignesd ecran. 



On ne sait jamais : il est ^ 
toujours possible d en- * 
foncer la touche ESCAPE 
par megarde I 



51 vous vous plantez un 
jour dans un programme, 
apres avoir saisi X donnees 
(evidemrnent importan- 
tes I) listez-le pour savoir 
ou vous pouvez redemarrer 
puis tapez. sur une seule 
ligne : 

POKE SI .0 : GOTO 

(votre ligne) 



870 
8B0 
890 



900 
910 
920 
930 
940 
950 
960 



970 
980 



990 



1000 
1010 
1020 
1030 

1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

U20 

1130 

1140 

1150 

2000 



D* = CHR$ <4): PRINT D$ M BLOAD" F$" ,A$6lQ0 tc s cam ?d7 
51 1 RETURN " 4/ 

POKE - 3 6304,0: POKE - 16302,0: POKE - < 16301 
K),0: POKE - 16297,0: POKE 230, K * 32s CALL 24576 
POKE 24659,234: POKE 24660,234: REM ON EFFACE (AVE 
C 17 ET 42,0N ECRIT SUR LES TEXTES OU TRAITS EX I STAN 
TS) 

RETURN 

■ 

REM x************************^*****^** 
REM »*« DEBUT DE PROGRAMME *** 
REM ###*** «*****«ff***oo*tf *«««««*«*««* 

i 

4 

D$ o CHR$ <13) + CHR$ (4>: PRINT W "BLOAD FA] RE * CO 
M.AMOOO" : PRINT D*" BLOAD FAI RE ,LM , A*6Q00 " : PRINT D$ 
lf BLOAD FA1RE.MEVEC" : CALL 832 

T* = " H ; FOR I = 1 TO 10 :T* = T$ + " ": NEXT 

Et = "0001024115212801408153616641792192010641192132 
01 4481 5761 7041 8321 9601 1043 2321 360 14881 61 61 7441 872200 

HOME : VTAB 22: HTAB 5: INVERSE : PRINT ■ 1 ■ ; s NORMA 
L : PRINT " CLEAR PAGE1 " ; : INVERSE : PRINT "2"}S N 
ORMAL : PRINT ■ SUITE NORMAL E " ; : GET H*:A3 m UAL C 
H*> 

IF = 1 THEN POKE 230,32; CALL 62450 
GOSUB B50: HOME : RETURN 

■ 

POKE 50,255: TEXT : HOME i VTAB 22: PRINT "RIEN N'E 

ST PERDU EN TAPANT GOTO 2000" 

END 

< 

■ 

REM *************** ******#***#**#****** 
REM #** TRAITEMENT DES ERREURS *** 
REM ***********#********£******** ****** 

■ 

NORMAL :ER = PEEK <222) 

GuSllfi 460: IF ER = 4 THEN- PRINT "DISQUETTE PROTEGE 

E " \ : GET R*: PRINT H " : GOTO 730 

IF ER = 9 THEN PRINT "DISQUETTE COMPLETE GET 

RS: PRINT 13 n : GOTO 730 
IF ER * 10 THEN PRINT "FICHIER VERR0U1LLE ";: GE 
T R$: PRINT HB : GOTO 730 

IF ER = 6 THEN PRINT "PAS DE FICHIER "F$" " ; : GET 

R*: PRINT : GOTO 730 
PRINT "PROBLEME IMPREVU "p BET R$ : PRINT n " ; GOTO 

730 

POKE 51,0 i HOME : GOSUB 820: GOTO 100 



Ce programme fonctionne conve- 
nablement sur les APPLE He et 
lie. II n'a pas ete teste sur les 
autres modeles. 
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TREMPLIN MICRO 



Utilisez done 

le langage machine 

de votre Apple ! 

Lorsque nous deplagons allegrement les 1024 
octets representant notre mernoire-ecran, nous 
risquons fort de perdre le controle de nos periphe- 
riques. 

En effet, dans ces 1 024 octets, 8 * 8 sont reserves 
aux cartes d'interface desdits peripheriques. 
D h ou I'utilite de memoriser les vaieurs (6 com- 
bien precieuses I) recelees par ces capricieux 
octets. 

Deux solutions : le mini-programme en basic ci- 
apres ou la minable routine en langage machine 
ci-contre (on sauve de $340 a $377 et on peut res- 
tituer de $378 a $3AF). 

Un fait certain : la premiere solution a besoin de 
ses 2 petites secondes... I'autre est instantanee. 
Quant a la memotre : plus de 200 octets pour le 
basic (voyez ci-dessous I) et 112 pour le langage 
machine. Qa vaut la peine, non ? 



36 V » 
3 « 2 B 



0S6B 

wo- 
ws- 



sa 



is 53 « * 

53 tt « a OffCO- 
08C8 



£ 3f 34 30 a BJ 

£2 28 53 
30 29 CB « 

82 » 

' *» 81 «i Pi 

W 53 4] 28 

C8 « CP 3j 
*> 2C « 2? 
& BJ 00 



DO PE 
31 CI 
00 31 CI 39 
to 2C « » 
« 2S <|p ?c 
» 31 2? M 
8' 80 CB (is 
31 CJ 38 
!l 38 

* 2C 30 29 
2C 53 4J 26 

* B2 M 82 



SAUVE.MEVEC 



OCCUPE 112 OCTETS EN MEMOIRE 
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>A 




RH 




^ 


i n/i 
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Y 




Rh 


PR 
r o 


U J 
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7 if 
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3 


D 1 M 


3 1 r 
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v 
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LP OJH 


RD 


7R 


A 


i nA 


-V u o / o 


v 

J A 


U J JL/ 


*?n 


90 


3 




3P U J £ U 


X 




RD 


PR 


A 


1 OA 


40AF8 
* u or o 


Y 


0363- 


9n 

7 17 


to 


03 


SI A 


*0328 


1 A 


0366- 




78 


07 


IDA 


40778 


X 
I n 


0369- 

U UU 7 


?n 




n 3 


<j e n 


40330 




U JUL 


□ \j 


FR 


07 


1 DA 

1_ iv 1 M 




"X' 

3 


036F- 


9D 


39 


03 


STA 

w i n 


*0338 




0372- 














0373- 


F0 


OR 

17 D 






L T U U 




0375- 


DO 


CB 




BNE 


40342 

W V M ~ fci 




0377- 


60 






RTS 






0378- 


A2 


no 




LDX 






037A- 


RD 


0(1 

L7 U 


03 

V w 


LDA 


40300 


V 


0370- 


9D 


78 


04 


STA 


40478 


7 A 


0380- 


BD 


8 


03 


LDA 


40308 

t U u U U 


Y 


0383- 




F8 

1 L7 


04 

17 1 


STA 


404F8 


-X 


0386- 

U w V W 


80 

L7 Lr 


1 




LDA 


4031 


X 




7 U 


7R 


0^ 


STA 


40578 


X 

3 


3RP- 




1 R 


03 


LDA 


40318 


X 


038F- 

■J Jul 


90 


F8 


05 


STA 


405F8 




0392- 

V w 7 fa 


R[> 


20 


03 


LDA 


40320 


X 
) ft 


U J7\J 


90 

7 17 


7R 

i L7 




STA 


40678 


| A 


fl39fi- 

U J70 


Rr> 


7R 


03 


1 OA 




Y 


1/OTtJ 


7 PJ 


pa 

ro 


n A 


QTA 


*n /PR 


V 

, A 


039E- 


BD 


30 


03 


LDA 


40330 


,x 


03A1- 


90 


78 


07 


STA 


40778 




03A4- 


BD 


38 


03 


LDA 


£0338 


s >< 


03A7- 


90 


F8 


07 


STA 


*07F8 


1* 


03AA- 


E8 






I NIX 






G3AB- 


EO 


08 




CPX 


£408 




03AD- 


DO 


CB 




BNE 


*037A 




03AF- 


60 






RTS 







3000 SA<1,0) = 1144:5AC2 J 0) = 1272iSA<3,0) ^ 1400s 
SA<4 f 0) = 1528:SA<5>0> = l e 56rSA(6,0) = 1784 
SA<7,0) = 1912!SAC8,0) * 2040s RETURN 

3010 FOR I = 1 TO 8: FOR J = 1 TO 8:SAC1 ,J> = PE 
EK <SA<I,0) + J - l)i NEXT : NEXT : RETURN 

3020 FOR I = 1 TO 8: FOR J - 1 TO 8; POKE SA<1,0) 
+ J - l i SA<I,J>s NEXT : NEXT : RETURN 



PROGRAMME 
EN BASIC 

avec utilisation 
de variables. 
(203 OCTETS) 
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Ill 



IBHIUUfHIHUl 



Ecrire 
en page 2 

(HGR2) 



Ce programme pr4sente un avantage non negltgeabte (surtout 
a une epoque aussl materialiste que la notre) : il ne serf a rien. 

Par contre, il montrera a celles et a ceux qui n'ont pas encore 
aborde cette question, comment il est possible d'&crire (lente- 
ment, ma is surement), dons la page 2 — HGR2 — de V Apple ! 

A partir de td, on peut tout imagines et merne reinventer le 
graphisme de cette bonne vieille Pomme ! 



ID 


TEXT : NORMAL ; SPEED= 255 e 


3S0 


GOTO 540 




550 


FOR L = 1 TO 16 




PRINT Mr* (21): HME 


360 


■ 






560 


IF MIDt (At,L * H * 16,1) = 


16 


POKE - 16368,0 : UttlT - 163 


370 


REM 


POTIE 




■■ft 1 THEN HPLDT X + L,Y 4 H 




84,128: PRINT 










570 


NEXT : NEXT : RETURN 


20 


HGR2 : HC0LDR= 3 


380 


At - 






580 




20 


4 
1 


390 


At - 


At * 


n M# ■ 


590 


REM ECRITURE DU TEXTE 


40 


REM CADRE 


400 


At = 


At + 


" **** ■ 










410 


At = 


At + 


t **** ■ 


600 


S = FRE (0) 


50 


HPLOT 63,10 TO 199,10: HFLOT 


420 


At - 


At * 


" *** *** *** ■ 


610 


FOR H = TO 7 




TO 199,24: HPLDT TO 63,24: 


430 


A* = 


At t 


■ *##»**##*******" 




"UK L — J 1 U J 




HP LOT TO 63,10 


440 


At = 


At + 


"***#*********** " 


630 


IF MIDt (At ,L 1 H X 5,1) = 


60 


■ 


450 


At = 


At * 


"****#***#***** 1 




"*" THEN HPLOT X + L,Y * H 




REM ABC OU BASIC 


440 


At = 


At + 


"**#*****##**#* 1 


640 


MEXT : NEXT 






470 


At = 


At + 


"**»****«*«*«*»* * 


650 


FOR BR = 1 TO IOjBZZZ = PEE 


BO XD = 62?Y = 14 


480 


At = 


At f 


"****************■ 




K (492QD); NEXT : RETURN 


90 


FOR 1 - 1 TO 12:X = XD M0 


490 


At = 


At + 


"*##******# f* ** »§ B 


660 


■ 




* I 


500 


At = 


At + 


■ ************** 1 


670 


REM ESPACE 


10® 


ON I GOSUB 710 , 830 ,950, 680,1 


510 


At = 


At * 


w **** **## 1 




070,1190,680,830,710,1310,143 


520 


REM 






680 


FDR BR - 1 TD 10;BZZZ = PEE 




0,950 


530 


ECRITURE APPLE L PtmE 


K (49200); NEXT : RETURN 


no 


NEXT 

■ 










690 


• 


120 


540 


FOR 


H = TO 12 


■ 


130 


REM APPLE & PEJtlE 












(Suite au verso) 



140 Y = 14:X = 10 

150 GOSUB 210 

160 X = 233: GOSUB 380 

170 : 

180 END 

190 : 

200 REM APPLE 



210 At 










220 At 




At 


t 


■##**#****** 1 


23B At 




At 


f 


■* * * 


240 A$ 




Aft 




"* ******* * " 


250 At 




At 


+ 


u * ******* * 


260 m 








"* ******* ft 1 


270 At 




At + 


******* ******" 


280 At 




At 


+ 


"* ******* * ** *■ 


2F0 At 




A1 


I 


u * * * u 


300 At 




At 


t 


"a**************** 


310 At 




AO 




■i * ** *" 


320 At 




At 




"# * #■ 


330 At 




At 




"********#*******■ 


340 : 










««■■ 




mi 




m ■■■■ 



POKEZ VOTRE PROGRAMME 
EN LANGAGE MACHINE 

Parfois, il est interessant de transformer en autant 
de Pokes les octets d'un court programme en larv 
gage machine. 

Cela peut se faire en MODE DIRECT, tres sirnple- 
ment, de la maniere suivante (il faut evidemment 
connaltre I'adresse decimale du programme et sa 
longueur) ; 

A = ADRESSE DEBUT : B = FIN : P = NUMERO 
de la ligne de Pokes prevue. 

] PRINT '"]" ; P ; : FORI = ATOB : PRINT'POKE" : I ; 
'V PEEK(l) : ":" ; : NEXT ... et RETURN 

... ou, pour une ligne de DATA : 

] PRINT ; P ; "DATA*" ; : FORI = ATOB : PRINT 
PEEK(I) ; V ; : NEXT ... et RETURN 
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TREMPLIN MICRO 



Ecrire 
en page 2 

(HGR2) 

► 

700 RBI A 

710 A* = "* 

720 A* = At + " * B 

730 A$ = At + n * * * 

740 At = A* + "# *' 

750 At = At + ** *" 

760 At = At + rl **#**" 

770 At = At * "* *" 

780 At = At * "* *■ 
790 i 

800 GDSUB 590: RETURN 
BIO : 

B20 REM B 



830 At = " u 
840 At = At 
850 At = At 
8<$Q At = At 
870 At = At 
880 At ~ At 
BPO At * At 
POO At = At 
910 : 

?20 GDSUB 590 
930 : 

940 REM C 



"*### 1 
fl # #" 

"**** Jl 
■tt * a 
"* *" 
"ft*** 

: RETURN 



P50 At = nH 
9i0 At = At + 
970 At = At + 
980 At * At * 
990 At = At + 
1000 At = At + 
1010 At - At + 
1020 At = At t 
1030 s 

1040 GOSUB 590 
1050 : 
1060 REM D 



*** ■ 
H * ** 
"* * 

1 *#* ■ 

: RETURN 



1070 At = " 

1080 At ~ At + "**** ' 

1090 At - At + "* * w 

MOO At = At + "# *• 

1110 At = At + n * * B 

1120 At = At 4 u * *" 

1130 At = At + "* * s 

1140 At = At + "**»* fl 

1150 : 

1160 GOSUB 590: RETURN 

1170 : 

1180 REM LI 



1190 At = ,fl 

1200 At « At + 

1210 At = At + 

1220 At = At * 

1230 At = At + 

\ 240 At = At * 

1250 At = At + 

1260 At = At + 

1270 : 

12S0 GDSUB 590 

1290 s 

1300 REM S 



RETURN 



1310 At = " n 

1320 At = At + " *** ■ 

1330 At - At t ■# * H 

1340 At = At * ** " 

1350 At = At + H *** ■ 

1360 At = At t ■ *" 

1370 At * At t "* * n 

1380 At = At't " *a* - 
12?? : 

1400 GOSUB 590: RETURN 
1410 : 
1420 REM I 

1430 At = 

1440 At = 

1450 At = 

1460 At = 

1470 At = 

1480 At = 

1490 At = 

1500 At = 

1510 : 

1520 GOSUB 590 j RETURN 



:l i 






At + 


ii 


#** 


At + 




K 


At + 




K 


At * 


ii 


1 


At 4 


■ 


* 


At + 


jr 


1 


At + 


ii 


*** 



| A B C D U BASIC 

-HACHETTE 




DES 

OCTETS 
EN 

DEPLACEMENT 



Ce petit programme autorise le 
transfert d'une zone rnemoire dans 
une autre, pourvu que les deux ne 
se chevauchent pas... bien entendu ! 

Nous utilisons pour cela la routine 
FE2C (CALL — 468), du Momteur 
Auto Start {en rnemoire morte). 

Elle deplace une zone prealablement 
delimitee par A1 L— A1 H et 
A2L — A2H, vers la zone d'accueil 
debutant en A4L— A4H. 

II faut savoir que ces adresses sent 
en PAGE-O, exactement en 3C 3D 3E 
3F (60 61 62 63) et en 42 43 (66 67). 

D'OU LE PROGRAMME 5UIVANT : 



SOIT A TRANSFERER UN ECRAN 
(1024-2000) A L'ADRESSE 16384 
($4000) 

10000 D = 1024 t 2 = 60 : GOSUB 10020 
: D = 2O00 : Z = 62 : GOSUB 
10020 : D= 16384 : Z - 66 : 
GOSUB 10020 

TOOIO POKE 768,160 : POKE 769,0 : 
POKE 770,76 : POKE 771,44 : 
POKE 772,254 : CALL 768 ; END 

10020 POKE Z, D-INT (D/256) * 256 : 
POKE Z + 1 , INT (D/256) : 
RETURN 

Pour rappeler la page, il suffira d'inverser 
les valeurs, comme ceci : 

10000 = 16384 : Z = 60 : GOSUB 
10020 : D= 17360 : Z~62 : 
GOSUB 10020 : D = 1024 : Z = 66 
: GOSUB 10020 
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Elemenfaire, quandon le 
sait, mais terribiement 
compiique quand on est 
compietement allergique 
au langage machine... 

I TRANSFERT D'ECRANS 
I EN MEMOIRE AUXILIAIRE 

Quand on dispose d'une carte 80 
C0L0NNES et de 64K de MEMOIRE 
AUXILIAIRE, il est bon d*y stocker cer- 
taines pages d'informations. 

Rien de plus facile, mais en passant 
non plus par la routine FEZC, mais 
bien par la routine C31 1 de I'Apple He . 

ATTENTION I LA RETENUE (CARRY) 
EST MISE A 

— 1 pour ECRIRE en MEM AUXILIAIRE (SEC) 

— pour TRANSF en MEM PRINCIPALE (CLC) 

Soit s 0300 — 38 (ou 18) SEC (ou CLC) 
0301 — 20I IC3 JSR $C31 1 
0304— 60 RTS 

VERS LA MEMOIRE AUXILIAIRE 

10000 POKE 769,32 : POKE 770,17 : 
POKE 771,195 : POKE 772,96 ; 
REM ROUTINE $C311 



10010 POKE 60,00 
POKE 62,208 
POKE 66,00 
POKE 768,56 : 



i POKE 61,04 
i POKE 63,07 
: POKE 67,32 
REM CARRY = 1 



VERS LA MEMOIRE PRINCIPALE 

10020 POKE 60,00 : POKE 61,32 
POKE 62,208 : POKE 63,35 
POKE 66,35 ; POKE 67,04 
POKE 768,24 : REM CARRY = 



Vous pouvez constater que. comme dans la page 
precedents on delimits les zones de transfert et 
d'accueil en pokant les adresses en A1L-A1H, 
A2L-A2H (60 a 63) et A4L-A4H (66-67), 
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ous avez emprunte, 
mais combien 
devez-vous payer ? 

Ce court programme fonctionne avec un basic 
compris par la plupart des machin&s, memo 
celies de poche... mais il comports une erreur. 

A VOUS de la deCOUVrtr. (reponse page 62) r 

10 TEXT : PRINT CHR* <21): HOME 
20 UTAB 1 2 i G0SUB 230; HOME 
30 INPUT "MGNTANT DE L'EMPRUNT ";E 
40 INPUT "N0MBRE DE YERSEMENTS ANNUEL5 
" ;V 

50 INPUT "TAUX ANNUEL INTERET^ ,r ; 3 
60 PRINT 

70 TR* = " " 

80 I = I * .01 iC = E:AC = E:RA = E / V 
90 PRINT " RANG 1NTERETS MONT ANTS 



100 PRINT TR* 

110 FOR K 3 1 TO U 

120 IN = AC « I:M0 = RA + IN:C = C + INi 

AC - AC + RA 
1 30 = " ft : I F K > 9 THEN ^ = u u 
140 IN - INT <IN * 100 + ,5) / 1Q0:US* 

= STR$ <JN): GOSUB 210 ;H1 = U 
150 M0 = INT CM0 # 100 + .5) / 100sUS$ 

= SIR* (MO): GOSUB 22 :H2 - U 
160 PRINT y*;Kj! HTAB 14 - HI: PRINT IN 

f s HTAB 27 - H2: PRINT M0 
170 NEXT K 
180 PRINT TR$ 

190 PRINT "TOTAL REMBOURSEMENTS ■ \C 
200 END 

210 FOR U = 1 TO LEN <US*) ; JF M)D$ < 

US*,U,1> = THEN RETURN 
220 NEXT Uj RETURN 

230 PRINT "Un emprunt <E) est rembours* 

en (V) an- nu i t£s.* 
240 PRINT "Le montant de chaque annuity 

est ggal 

250 PRINT " - EA> + Montant des int£r* 
ts (TX) dus sur le capital non re 
mboura* 

260 VTAB 22: PRINT " PRESSER UNE TOUCHE 
POUR LA SUITE " ; ; GET K*: PRINT s R 
ETURN 



TREMPLIN MICRO 



Une petite 
revision 
d'anglais 















a 


■ 


■ 






a 










M 










■ 


■ 


1 















'EST s/raiment la 
premiers l&gon, 
mats rien ne vous 
interdit r en mads- 
fiant lignes c/e DATA, 
taut en en respectant 
approximativement la 
forme, d'ecrtre plusieurs 
suites. Un ban canse'sl ; praposez cet exerc/ce a 
/'une des personnes c/e vofre entourage. Je vous 
pramefs des reactions surprenantes. et I'ardina- 
teur ne se fatigue jamais ! 



10 TEXT : SPEEDS 255: NORMAL : PRINT CHR$ (21) : HOME 
20 HTAB 7: INVERSE : PRINT " PETITE REVISION D'ANGLAIS 
"l NORMAL 

30 V = A:Y = V:D$ = CHR* (7>:TR$ = " " : FOR 3 = 1 TO IP 

:TR* = TR* + " ": NEXT : PRINT TR$; POKE 34,2 

40 GOTO 240 
50 ; 

60 REM ********** ************ ******** 
70 REM **** PETITES ROUTINES **** 
SO REM ****************************** 
90 ; 

100 FOR 11 = 1 TO 5:BZZZ = PEEK (49200) : NEXT ZZ: RETU 
RN 

110 FOR I = 1 TO 10: 60SUB 100: NEXT : RETURN 

120 VTAB 23: HTAB 8: INVERSE : PRINT tr PRESSEZ UNE TOUC 

HE BUR 11 : NORMAL 
130 VTA8 22: CALL - 958: PRINT : HTAB 3: IF ER = THE 

N 160 

140 IF ER = 1 THEN PRINT n 1 MAUVAISE REPONSE - " ; : GOT 
160 

150 INVERSE : PRINT ER; : NORMAL : PRINT " MAUVAISES REP 
ONSES - "; 

160 INVERSE : PRINT X ; s NORMAL : PRINT 11 QUESTIONS 3 ' : FO 

R I = 1 TO 1500s NEXT : RETURN 
170 VTA 8 23: HTAB 11: INVERSE : PRINT "PRESSEZ UNE TOUC 

HE": NORMAL 

180 CALL - 198: POKE - 16368,0: WAIT - 16384,128,127 
; POKE - 16368,0: RETURN 

190 : 

200 REM ****************************** 
210 REM **** REVISION D'ANGLAIS **** 
220 REM ****************************** 
230 : 

240 PRINT : PRINT : PRINT ; PRINT "COMMENC0NS PAR DES M 

OTS ANGLAIS DONT IL VOUS FAUT DONNER LA TRADUCTION., 
ii 

250 GOSUB 110: GOSUB 110: HOME 
260 READ A$:Y - Y 4 1 sX = X + 1 

270 IF X = 18 OR X = 27 OR X = 33 THEN GOSUB 170: G0SU 
B 130:Y = V: HOME :Y = Y + 2: IF X = 33 THEN 420 




^ PRINT CHRS (21) vous 
oblige a travailler en 40 
colon nes. SPEED = 2S5 
n est utile que si un autre 
programme avait reduit la 
Vitesse daffichage. 



^ Pour un bruit bref ; 
^X=PEEK(49E00) ... uti- 
lise ici en boucle. 



^Attente d'un caractere 
dont on pent connaTtre 
la valeur par un C=PEEK 
(—16384). 

Attention I les CTRL sont 
acceptes. et un CTRL-C pro- 
voquera done un BREAK. 
Pour empecner ("utilisation 
dU CTRL-C (BREAK), M fau- 
drait par exernple ecrire : 
180 CALL-198 : GET WS : 

IF ASC (W$) > 31 

THEN RETURN 
185 GOTO 180 



GUY-HACH ETTE 
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CALL-868 vide la ligne v 
decran. et seulennent 

elle. 



On est en Anglais, pas^ 
vrai ? 



Ce systems daffichage^ 
est rapide, mais !e pro-™ 
gramme agacant a ecrire. 
Un conseii : tapez 4 fois 

ceci t- ,,.-», puis 

remplissez ! 



II n est pas interdit de ^ 
completer le program-" 
me par des appreciations 
(flatteuses ou non) sur 3e 
score du participant, On 
peut aussi lui demander 
son prenorn (au debut), 
puis lul lancer un «Bravo I 
Toto* a la fin. Mieux : si 
vous memorisez score et 
prdnonru vous le surpren- 
drez t sll rejoue... en com- 
parant son nouveau resul- 
tat a I'ancien. 



280 

290 

300 
310 
320 
330 
340 

350 
360 
370 
330 
3?0 
400 
410 
420 
430 



440 
450 

460 
470 
480 
4?0 
500 



510 

520 
530 
540 
550 
560 
570 
580 
590 



600 

610 
620 



VTAB Y : INVERSE : PRINT X;: NORMAL 
PRINT A$: GDSUB 100 
VTAB Y: INPUT 8*: IF B* = "* THEN 320 
HTAB 17: VTAB Y: CALL - 868 



Ct THEN s 
GOTO 360 



INVERSE ; PRINT 



IF X = IB THEN PRINT 
ANGLAIS !■ 

IF X - 27 THEN PRINT 
FRANCAIS! " 
HTAB 1 : 
HTAB 4: 
HTAB 17: 
READ C*i 
IF B$ < 
R = ER + 
PRINT C$ 
HTAB 25: VTA 8 Y 
HTAB 37: VTAB Y 
IF B* = C$ THEN 
PRINT "NO" + D$ 

IF X = 32 THEN X = 33: GOTO 270 
GOTO 260 

HOME :Y = V + 1:2 - Y : HTAB (1) 
VTAB Y + 1 1 HTAB i :T* = " 
FIE CETTE PHRASE ? 
EN (T*) STEP 10: INVERSE 
XT : NORMAL 



DONNE I MA I NT EN ANT LE MOT 
DONNE 2 MA I NT EN A NT LE MOT 



NORMAL sE 



PRINT » 



PRINT "YES" : GOTO 4O0 



VTAB (V> 

QUE SIGN I 

" ; FOR I = 1 TO L 
PRINT MID* <T*,I,10>: NE 



HTAB 13: PRINT : POKE 
2+2: HTAB Is VTAB Z 



33,27: POKE 35,22 
- !: PRINT A$: GO 



A LA PROCHAINE ! " 
HTAB 12: PRINT MI 

< RETURN) POUR RE 



POKE 32,12: 
READ A$:Z = 
SUB 100 

Z = I + I : READ ASi GOSUB 110 

HTAB 4: PRINT "--> " ;A$ 

IF Z < 1? THEN 450 

TEXT : GOSUB 120: HOME : VTAB 12 
T* = "C'EST TOUT POURCETTE FOISf 

: FOR I = 1 TO LEN <T$) STEP 15: 

0$ (T*,I, 15): PRINT ; NEXT 

HTAB 6; VTAB 23: INVERSE : PRINT 

CQMMENCER" 

GOSUB 180: IF PEEK < - 16384) = 13 THEN RUN 
NORMAL : HOME ; END 

* 

i 

REM **************************** 
REM **** QUEST10N/REPONSES **** 
REM **************************** 

■ 

■ 

DATA A/AN , UN/UNE , BOOK, L1VRE, CHAIR, CHAISE, DESK, BUREA 
U, GOOD, BON, HE, IL, IT, I L/ELLE, MAGAZINE, REVUE f MORNING ,M 
AT IN ,NEW , NOUVEAU ,NEUSPAPER , J 0URNAL , NOTEBOOK , CAHIER ,0 
N , SUR , PEN T STYLO , PENCI L , CRAYON , TABLE , TABLE , TEACHER , PR 
OFESSEUR 

DATA CE/CET/CELLE ,THAT , CELUI-LA ,THAT ,LE/LE/LES ,THE 

,CE/CET/CELLE f THIS,CELUI-CI t THIS,QUEL?/QUELLE?,WHAT? 

, QU' EST-CE QUE? f WHAT? , OU , WHERE , QUI ?, WHO? 

DATA TO BE,ETRE,T0 DO ,FAIRE,TO READ , LI RE ,TO TALK, PA 

RLER ,TI WALK,MARCHER,TO WRITE , ECRI RE 

DATA WHAT'S THIS?,QU'EST~CE QUE C EST? , WHAT' S HE 

DOING?, QUE FAIT-IL?,HE'S READING, I L LIT,WHERE'S THE 

PEN?,OU EST LE STYLO? ,WH0'S HE? , QUI EST-CE? - 
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TREMPLIN MICRO 




De nouvelles perspectives 
pour vos histogrammes 













■ 


■LLIJLI 










II 1 





IAA PL E f mats efficac& (et fort 
agreable a utitiser), ce pro- 
gramme vous aidera a donner 
un volume inhabituel a vos 
chiffres les plus rebarbatifs. 

Vous I'adoptermz sans aucune diffi- 
cult^ a vos propres besoms. . . a mains 
qu'il ne fosse vofre bonheur fel quel ! 



1 U 


LUrtfcn ! ljoUU 








Him !L — a! nUULUr^ £• ItAI I nunc 






all 


U* — LnK» \ 1 o ) t LMKt \ H J I u» — Lnrvp 






a n 
H LP 


nnci ld it /fi 
bUbUb J 16U 






^n 


hTM A.tii\ it/ i t / i o ^ 

uin H \ 1 £. ) f V\ 1 £ ) p A k \ £. } 






OU 








"7n 
/U 








oil 


bU 1 U o/U 






90 








100 


REM ****************************** 






no 


REM ***** PERSPECTIVE ***** 






120 


REM ****************************** 






130 


■ 






140 


HPL0T 1,1 TO 1,140 TO 279,140 TO 279, \ 


TO 1 




150 


FOR I = 1 TO N 






160 


C = ABS < - 5 + C): HC0L0R= C 






170 


A ■ U(I) 






180 


X = B + < 1 - 1 > * B 






190 


Y = 140 - B * A 






200 


FOR J =» TO Bs HPLOT X + J p 140 TO X + 
J 


J,Y: 


NEXT 


210 


HC0L0R= 3 i REM CONTOURS POUR HCQL0R*2 






220 


HPLOT X P Y TO X + B,Y TO X + B f 140 TO X 

Y 


,140 


TO X, 


230 


REM ARRIERE 






240 


HPLOT X,Y TO X * 5,Y - 5 TO X + B ♦ 5, 


Y - 5 


TO X 




t B + 5,140s HPLOT X + B,Y TO X + B + 


5,Y 


- 5 


250 


NEXT I 






260 


POKE 49232,0 






270 


CALL - 198: POKE - 16368,0 ; WAIT - 


16384 


.128, 




127: POKE - 16368,0: PRINT :H = Is IF 


« 


10 THE 




N 930 






280 


GOTO 870 







^ LQMEM protege voire 
^ table de caracteres, le pro- 
gramme de transfert et la 
page graphique. 



4 B^tO a ete choisi parce 
que dormant le meilleur 
resuStat. A = PEEK (49233) 

permet de retrouver la page 
TEXT. 



^ Formule dormant alternati- 
vement a C une vaieur de 2 
(vert) ou 3 (blanc). 



Quand HCOLOR = VERT, on 

™ retrace tes contours de la 
figure* 

^ Perspective. 

+ POKE 49232,0- HGR. 



GUY-HACHETTE 
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On ne pent pas saisir des ^ 
valeurs telles que la plus " 
grande soit egale a plus de 1 
fois la plus petite. 



Avec cette form ule. pas ^ 
d Extra Ignored a re-^ 

douter 1 



Si AS - ZERO, termine I, 
Pour corriger cest I'as- 
terisque I 



On va voir si fes valeurs^ 
conviennent ou pas„ s 



St vous desirez que votre^ 
titre commence par un ^ 
blanc. ou comporte une vir- 
gule, ouvrez d'abord les guille- 
rnets, puis tapez votre texte, 
Finissez par un espace si vous 
aviez commence ainsi. 



310 REM ****************************** 
320 REM ***** PARAMETRES ***** 
330 REM ****************************** 
340 : 

350 TEXT s HOME : HTAB Hi INVERSE : PRINT " SAJS1E 
DES VALEURS " : NORMAL 

340 B* « nu ! FOR I = 1 TO 10 :B$ = B$ + ■ NEXT ! 

PRINT B$ 

370 PRINT "Vous ne pouve2 pas saisir plus de 12 

eurs. Pour stopper, tapez <0> et un <*>pour corri 
ger une valeur 

380 PRINT B$: IF N < > THEN E = N:N « 

390 N = N + 3 

400 VTAB N 4 8< HTAB I :W = 11 " s IF N > 9 THEN V$ = 

II H 

410 PRINT VW. VALEUR -> "A<N) ; : HTAB 15s CALL - 

657 :A$ = FOR F = 512 TO 767: IF PEEK <F) < 

> 141 THEM Af - A$ + CHR$ ( PEEK <F) - 128): NEX 
T F 

420 IF A$ = " n AND A<N> < > THEN VTAB N + S: HTA 

B i5; PRINT A<M) : GOTO 490 
430 IF A$ = "0" THEN N = N - 1 : GOTO 500 
440 IF A$ ■ ANO N > 1 THEN N = N - it GOTO 400 
450 L = LEN <A$)i IF L > 11 THEN 400 
440 FOR F = 1 TO LEN <A$):G = ASC ( MID* <A*»F,1>) 

s IF G < 48 OR G > 57 THEN 400 

470 NEXT F 
480 A<N) = VAL (A*) 
490 IF N < 12 THEN 390 
500 H = : GOSUB 740 
510 : 

520 REM ****************************** 
530 REM ***** TEXTE ***** 

540 RBI ****************************** 
550 : 

540 VTAB 22: HTAB 3: CALL - 958: PRINT "TITRE 

. .."js IF E* < > nii THEN 

HTAB ?i PRINT 6$ + E$; 
570 HTAB 7: INPUT "";H$: IF H$ = " ir THEN 590 
580 H = 0:E* = K* 
590 IF - 5 THEN 910 
400 D = 1 : GOTO 870 
610 TEXT : HOME 

420 VTAB 2: HTAB (41 - LEN CE$)> / 2: INVERSE : PRI 

NT E$; NORMAL 
630 A = LEN < STR* (A>) + 5 

640 FOR I = 1 TO N: VTA 8 5 + I sV* = ■ " : I F I > 9 TH 
EN W = 

450 HTAB 33 - A; PRINT V*I" . " ; 

440 HTAB 31 - LEN ( STR$ <A<]))): PRINT A(I) M ";:H$ 
= STR* (I(I>):K « LEN <H$): IF 1(1) ■ I NT < 1 ( 
I)) THEN 490 

(Suite page 32} 
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mmmummummmmmmmmmmmi 




5" 34S67 

|- 70000 
%• 30000 
I" ^0000 

-.S" 65000 

lv 10000® 



% 
% 
% 



1.75 

e.5| 

1.0* 



% 
X 
% 
% 
% 
% 



670 IF MI D$ <H*,K - I,l) - ", u THEN K = K + Is GOTO 
700 

680 IF MID* <H*,K - 2,1) - n . fl THEN 700 
69Q K - K + 3 

700 HTAB 38 - K: PRINT HI);: HTAB 39: PRIrfT "X rt : NE 

XT 

710 VTAB J?! HTAB 1: CALL - ?58: PRINT Cf 

720 UTAB 22 j PRINT "Autre commentaire O/N M ; : GET H 

♦i IF H$= M OR H$= "N" THEN 740 
730 UTAB 19: HTAB 1; CALL - 198: CALL - 657 :C* = • 
": FOR F = 512 TO 767; IF PEEK <F) < > 141 THEN 
C* = C* + CHR* < PEEK CF) - 128): NEXT F 
740 MTA8 19: HTAB l! CALL - 958: PRINT C*:H = 0: IF 

0-6 THEN 870 
750 GOSUB 1180: GOTO 140 

760 A = 0:S = 0: FOR I - S TO N: IF AC I ) > CA) THEN A 

= A<]> 
770 5 = S + A< I) : NEXT 
780 M = A / 10 

790 FOR I = J TO N:V<1) = INT <A(3) / M> : IF U<I> < 
1 THEN UTAB 22: HTAB 1: PRINT IT LA UALEUR NUMERD 
T EST TR0P PETITE" sN = Is GOTO 400 

800 1(1) = INT <A<I) * 10000 / S) / 100 

810 NEXT : RETURN 

820 : 

830 REM ******* ************ *********** 
840 REM ***** MENU ***** 

850 REM ****************************** 
860 : 

870 T* = ' HISTOGRAMS 

HOME ! INVERSE s FOR I - 1 TO 51 STEP 
17: HTAB 12: PRINT HID* (T*|I f 17) ! NEXT 
880 NORMAL 



Vous obtiendrez des 
histogram mes tels que 
celui-ci, mais je vous 
conseille des titres et 
commentaires un peu 
plus'serieux I 



a Tant pendant la correction 
™ des donnees que tors de la 
saisie du titre on du com- 
mentaire, un simple RETURN 
confirme la donnee ou le texte 
deja en memoire. 



^ On profits de cette routine 
^pour calculer le pourcen- 
tage. 



a Chaque portion de T$ 
▼ comporte 17 caracteres 
ou espaces. Qu'on se le dise 3 
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TRENPLIN MICRO 



FICHE 1 



La page zero de PApple He 



® 



QUELQUES 

ADRESSES 

UTILISABLES 



N'oubliez pas 
que certains 
logiciels font 
largement appel 
a ces adresses. 



$06 


$07 


$08 


$09 


06 


07 


08 


09 


$18 


$19 


$1 A 


$1 B 


24 


25 


26 


27 


$4 A 


$4B 


$4C 


$4D 


74 


75 


76 


77 



$1C 
28 



$1 D 

29 



$1 E 

30 



$1 F 
31 



Avec prudence 



$CE $CF $D6 $D7 



~™ 206 


207 


214 


215 






KV $EB 

235 


$EC 
236 


$ED 
237 


$EE 
238 


$EF 

239 




ma 249 


$FA 

2 50 


$FB 

251 


$FC 
252 


$FD 
253 


$FE $FF 
254 255 



LA FENETRE 



$20 32 POKE 32,0 = COLONME 1 
POKE 32 P 3 = COLONNE 4 



$21 



33 POKE 33,10 = 10 Colonnes DE TEXTE 



Par example : POKE 32,5 : POKE 33, 10 permet de 
limiter I'affichage aux colonnes 6 a 15 de I'ecran. 

Important : Le total ne doit jamais depasser 40. 
Ainsi POKE 32,5 : POKE 33,36 provoquerait urf 
desosire I 



$22 



34 POKE 34,0 = LIGNE 1 

POKE 34 r 5 = LIGNE 6, et on n'ecrit 
plus sur les 5 lignes precedentes qu'un HOME 
n'efface pos. Retour a la normale par POKE 34,0 ou 
TEXT. 



$23 35 POKE 35,10 limite la hauteur de la 
fenetre aux lignes 1 a 10. Si Ton fart 
POKE 34,3, cette meme fenetre ne comporte 
plus que les lignes 4 a 10. 



VALEURS 
MINI* 

et 

MAX, 



32,0 
33,1 
34,0 
35 J 



32,39 
33,40 
34,23 
35,24 



LE CURSEUR 



$24 36 POSiTION HORIZON TALE DU CURSEUR 
= (PEEK (36)) 4- 1 

POKE 36,9 placera le curseur sur la colonne 10, 
POKE 36,49 (avec une carte SO COLONNES) placera 
le curseur sur la colonne 50. 

Dans ce cos , preferer POKE 1403 r 49 

$25 37 POSITION VERTICALS DU CURSEUR 
= (PEEK (37}) + 1 

POKE 37 r 8 place le curseur sur !o ligne 9, 

Attention ! apres un POKE 32,5 par exernple, 
POKE 36,10 place le curseur a la colonne 16, rnois 
seulement s'ij y a dejd eu un PRINT, 



Exemples 



10 POKE 32,5 : POKE 33 r 35 
20 POKE 36,10: PRINT "T" 



• "T" est af f iche d la 1 1 e colonne 



10 POKE32 r 5: POKE 33,35 
15 PRINT 

20 POKE 36,10 : PRINT "T" 



* "T" est affiche a la 16 e colonne. 
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TREMPLIN MICRO 



FICHE 1 



FICHIERS PROGRAMMES 



INSTRUCTIONS 



SAVE 

LOAD 

RUN 



| MODE DIRECT 

SAVE TOTO(.D1,S6) 
LOAD TOTO (.D1.S6) 
RUN TOTO{,D1 t S6) 



Ce sont les plus utilises, et les 
mieux connus. 



DANS UN PROGRAMME 



PRINT CHR$(4) ; "SAVE TOTO 1 ' 
PRINT CHR$(4) ; "LOAD TOTO" 
RUN TOTO (.01,56) 



Les mentions M D1 h S6" (0O1 1 est le numero du DRIVE et 6 le numero du SLOT) ne sont indispensables que 
si I'on doit passer cTun DRIVE a un autre ou d'un SLOT a un autre. Sinon, ('instruction choisit, par defaut, 
les numeros en cours d' utilisation. On peut aussi indiquer le volume. 

Example : SAVE TOTO.D1 t S6 ( Vl . ou PRINT CHR$(4) ; "SAVE TOTO.D1 .S6.V1". 



FICHIERS EXEC 



Fkhiers de texte qu'APPLESOFT lit et tente d'executer. 



INSTRUCTIONS 



EXEC 



EXEMPLE 
DE PROGRAMME 
EXEC PERMETTANT DE 
CONNAlTRE L'ADRESSE 
ET LA LONGUEUR D'UN 
F1CHIER BINAIRE QUI 
VIENT D'ETRE CHARGE, 



MODE DIRECT 



DANS UN PROGRAMME 



EXEC TOTO(,D1.S6) 



PRINT CHR${4); "EXEC TOTO" 



10 D$ = CHR$(4) : G$ ■ CHR$(34) 

20 PRtNT D$ ; "OPEN ADR' 1 ; POKE 33,30 : PRINT 

D$;"WRITE ADR" 
30 PRINT "HOME" 

40 PRINT "PRINT i PRINT" ; G$ ; "A" ; G$ 
"PEEK{43634) + PEEK(43635) * 256" ; G$ ; ", 
L" ; G$ "PEEK(4361 6) + PEEK(4361 7) * 256" 
50 PRINT D$ ; "CLOSE ADR" 
60 POKE 33.40 et RUN 



EXECUTION : 

EXEC ADR ... 
... et le resukat 
apparait : A768, 
LBO, par exemple. 



PROGRAMME EN EXEC 



Vous pouvez mettre un programme {ou une partie de celui-ci) 
en ftchier EXEC, puis le recuperet., ou I'inserer dans un autre. 



CREATION 



Une seule ligne de programme suffit ; 
60000 D$ = CHR$(4) : PRINT : 
PRINT D$ ,5 OPEN LISTE" ; 
POKE 33.30 : PRINT D$ M WRITE LISTE" : 
LIST 0, 59999 : PRINT D$"CLOSE 
LISTE": POKE 33.40 : END 

Taper RUN 60000, (Pour sauvegarder les 
lignes 30 a 70 . mettre "LIST30.70 11 ). 



RECUPERATION 



EXEC LISTE (ou autre tit re choisi par vous). 



TRANSFORMER UN FICHIER EXEC EN X VARIABLES 

10 D$ = CHR$(4) : HOME : DIM L$(250) 

20 ONERR GOTO 80 

30 PRINT D$"OPEN LISTE" : N = 

40 PRINT D$"READ LISTE. R**N: GET R$ 

50 IF ASC(R$) = 13 THEN L$(L) = L$ : L$ = "" : L = 

L + 1 : GOTO 70 

60 L$ = LS + R$ 

70 N = N + 1 : GOTO 40 

80 POKE 216,0 : PRINT D$"CLOSE" 

90 FOR I = 1 TO L : PRINT L${l) : NEXT 
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Et maintenant. 9 fens 25 
caracteres.., pour affi- ^ 
cher te MENU que vous pou- 
vez admirer en bas de la 
page. 

je sais : ce ne sont pas ceux 
de i'APPLE, mate ils appar- 
tiennent a FATRE.F1 ... du 
programme FAIRE.ECRAM 
(page 22), 



LE MINI-PROGRAMME 

ci-apres transfere votre page 
TEXT en HGR. avec utilisation 
de la table de caracteres char- 
gee a 1 adresse $6 1 00, 



6000 



890 



you 

910 
920 

930 
940 



950 
960 

970 
980 

990 
1000 
1010 
1020 
1030 
1040 

1050 
1060 



T* = "1. Saisir des valeurs 2. 
leurs 3- Lire un -Nchier 
leurs 5. Corriger an t i ire 
taires 7. Voir 1 "h i stograrnroe 
istogramme9. Fin de travai 1 

FOR I = 1 TO 225 STEP 25 1 HTAB 8 
24) / 25: PRINT MID* CT*,I f 25)j 

TEXT : VTAB 17; HTAB 8: PRINT H 

11 : CALL - 956 
HTAB 8: PRINT "Option choisie ? 
ASC <Q$> - 48s IF < 1 



Corriger des 
• Enregistrer va 
6. Autre* common 
8, Imprimer 1 'h 



: UTAB 
NEXT 



6 + a + 



UTAB J9: 
T 0$:0 = 
20 

IF H = 
PAGE I" i 
JF = 



" i : GE 
9 THEN 



OR ) 

D'HISTOGRAMME 



AND 0=8 THEN Rt = "PAS 
GOSUB 980: GOTO 920 

AND (0 = 2 OR O = 4 OR = 6 OR = 7) 
THEN R* = "AUCUNE UALEUR EN MEMOIRE" : GOSUB 980: 

GOTO 920 
IF H = 1 AND 0=7 THEN O - 10 

ON GOTO 350,350,1040,1040,560,710,610,1250,970 
TEXT : HOME : END 

UTAB 22: HTA8 1: CALL - 958s HTAB 8: PRINT R*: 
RETURN 

REM *********tt**tf##*#*#*«**tttt**«** 

REM #**#* FICHIER 

REM **#****###*#**#*##******###*## 



POKE 34,21 : HOME 

-> " jF*: IF F* = 
0NERR GOTO 1320 
UTAB 22s IF = 4 THEN 1080 



UTAB 22: HTAB 8: INPUT "TITRE 
nn THEN 910 



6000 
6008 



_ A 6 22 BA 



85 1C 20 



24 



2A A5 2? 



00 



S5- s s 5 S5 5 s s 3 
ST- 1 S 3 S S £ 1 s 

6028- 52 g 2 AO 90_ 31 *J 




6030 
6038 

6040 

60 



- CE 



_ 7F 18 2A 2A 2A ^_ £9 
- M •» « 2 M o5 BO ■ 



2A 2? 



00 



lo- F8 80 4F S ?A 91 2A 18 
8 - S 49 M « g £ E8 EO 



6050 
6058 

60 60 

60 



- A3 



2 B 69 04 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 



eft A9 00 8D 52 60 
E8 A* « , c £8 



So i sir ties ug leurs 
Cor riser ties leurs 
Lire un f ichier 
Enresistrer va leurs 
corriger un fcibre 
Rut r es comment aires 
Voir i 'hisfcogramnte 
lmpr,mer I ' li i stogramme 
r m de tra^ai I 



2 X 2 i % ' D ft4 lc 



se - a "a "» * 60 

7fl- Eh 2^ 7KJ 



6070 



Opt i on cPio isie ? 
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mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 



1070 



1060 



1090 
1100 
1110 
1120 
1130 
1U0 
1150 
1140 
1170 

1180 
11?0 
1200 
1210 
1220 
1230 
1240 
1250 
1260 

1270 
1280 
1290 
1300 

1320 
1330 
1340 
1350 



Histogrammes (suite et fin) 

PRINT DiTOPENT*! PRINT D*"R£AD"F*i INPUT N: FOR 
1 = 1 TO N: INPUT AC I): NEXT : INPUT E%\ INPUT C 

*: PRINT D* w aOSE*F*:D = liH = 0; GOSUB 760: GOTO 
1090 

PRINT D*"OPEN n F*: PRINT D*"UIRITE n FS : PRINT N; FO 
R I = 1 TO N: PRINT AC J ) : NEXT : PRINT G$ + E$: P 
RINT Gf * C*s PRINT D^CLOSE'T*: GOTO 1090 
ONERR GOTO 970 
GOTO 910 

REM ****************************** 
REM ***** TEXTE EN HGR ***** 
REM ****************************** 

PRINT : PRINT DVBLOAD HI5T0 ,LM ff 

PRINT : PRINT CHRf (13) + CUR* <4)"BLDAD FAT RE 

-Fl ,A*6J00" : RETURN 

POKE 24659,234: POKE 24660,234s CALL 24576 
RETURN 

REM ****************************** 
REM ***** EDITION GRAPH ***** 
REM ****************************** 



POKE 49232,0 
PRINT D*"PR£i": 



PRINT CHR* <9)"G": PRINT 0$"PR£ 



GOTO 870 



REM 
REN 
REM 



****************************** 
***** TRAITEMENT ERREURS ***** 
****************************** 



P - PEEK <222) 
IF P = 5 THEN R* = "PAS DE DONNEES 
IF P = 6 THEN R* = "PAS DE FICHIER 
POKE 216 f 0; GOSUB 980: GOTO 920 



F$ 



Le programme ne teste pas 
la presence, sur la disquette, 
d un fichier portant le meme 
nom< N y a done risque 
^ d'ecraser des donnees 
deja enrecjistrees, A vous 
de vous casser la tete sur ce 
probleme I 



HISTO.LM. c est la meme 
' chose que la partie $6000 
— $6074 de FA1RE.LM (page 
20). Ne vous amusez pas a le 
retaper... 



^ HGR (nullement obliga- 
toire pour imprimer). 



Veuillez consulter !a notice 
concernant votre imprt- 
mante et eventuellement 
ceLle de votre interface. 



^On pourrait en rajouter. 
^ bien sun mais en l occur- 
rence ce seratt superflu... 



Un moyen 
de savoir si 
un fichier existe 

Tenez ! il pourrait etre inclus 
dans le programme «HIST0- 
GRAMMESh, par exemple. 



10 HOME : D$ = CHR$ (13) + CHR$ (4) 
1 5 INPUT "FICHIER" ; H$ : IF Fl$ = " " THEN END 
20 GOSUB 10000: GOTO 15 
10000 ONERR GOTO 10025 

10005 PRINT D$"OPEN"FI$ : PRINT D$'READ"FI$: INPUT RR : : PRINT 
D$"CLOSPFI$ 

10010 PRINT "ATTENTION I LE FICHIER "Fl$" EXISTE !" : REM ETC* 
10015 ONERR GOTO 15 : REM VOTRE LIGNE HABITUELLE 
10020 RETURN ; REM EVENTUELLEMENT 

10025 P = PEEK (222) : POKE 216,0 : IF P — 5 THEN PRINT D$"DELETE"FI$ 

: GOTO 10015 
10030 PRINT "AUTRE PROBLEME" 
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INVERSION 

DE HGR1 ou HCR2 

Taper le programme sutvant le processus habituel 
(CALL-151. puis 300 : A5 06, etc.). Sauver par un : 

fl BSAVE fNVER.1 . A$300. LS50 

BSAVE INVER,2 S AS300, L$41 (celui-ci pourra 
etre charge a n'importe quelle adresse), 

1 




VERSION RELOGEABLE 

POKE 6 J pour Page 1 
POKE 6,2 pour Page 2 

CALL 768 INVERSE, un autre 
retablit. et ainsi de suite. 

Le programme ecrase les adresses 
7 et 8. 



VERSION NON RELOGEABLE 



Fonctionnement identlque, mais on 
n utilise que l adresse 6. 



TREMPLIN MICRO 



Amortissement 

Quelle somme (AM) amortira, cheque annee, la personne 
ayont contracts un emprunt de (ME) Francs, aux faux de 
(/N) pour cent, remboursable en (AN) annuifes ? On salt 
que le man font des premieres onnuifes est serieosemeni 
entame par le cout des interets, celui-ci diminuant au fur et 
a mesure que I'on rembourse le capital. 



ME = Montant de I'Emprunt 

IN - Taux de HNteret annuel. 

NA = Nombre d"Annuites. 

AM = AMortissement. 

L'affichage, te] qu il a ete programme 
sur APPLE, ne permet pas d'aller au- 
dela de 18 annuites. mais le pro- 
gramme est evidemment modifiable. 



REM **t*tt**tft****ftK***»ff*«****K**ff 

REM *** SAI5IE DES DONEES tit 
REM ******** *** * ***-********#****** 



10 TEXT : NDRTOL : PRINT CHRt (21): HOME 
15 FOR 1 = 1 TO 40 STEP 4: HTAB I: VTAB 1: PR 

INT " ITAB 21: KTAB I: PRINT " 

NEXT : IWERSE r FOR i = 2 TQ 21 : VTAB I : H 
TAB Is PRINT " ■;; HTAB 40: PRIhTT " "; NEXT 

: mmi 

20 : 
25 
30 
35 
40 : 

45 Q = 

50 Q = Q + is GOSUB 135: GOSUB 130 
55 VTAB 23: HTAB H: CALL 
60 IF R$ = " AND = 1 THEN 160 
65 FOR 1 = 1 TO LEN CR*)iAS « ASC < MID$ <R 

$,1,1)): IF AS > 47 AND AS < 58 THEN 75 
70 IF D < 3 OR (Q - 3 AND AS < > 44) THEN C 
ALL - EPS: GOTO 55 
NEXT : BOBUB 160: IF Q < 3 THEN 50 
GOTO 2D5 



19B; INPUT SB :R* 



75 
80 
B5 
90 
95 

100 



VTAB 22: HTAB 1 ! CALL - 95B: RETURN 
POKE 32,2: POKE 33,37: POKE 34,10: POKE 35 
,20: HTAB 3: PRINT : RETURN 
HTAB 3: MTAB i * Q * 2: PRINT »• ":: I WE 



RSE ; PRINT R* 
105 At - L #1DRT.= " 
110 A* = 1 



NORMAL : RETURN 
R$ = "RESTE" RETURN 
R$ = ' = RETURN 
115 Oft = -FIN * <ESC) - AUTRE CALCUL = TOUCHED 
GOTO 130 

120 (ft = "<1> REV0IR LE DEBUT <2> SUITE': GOTO 
130 

125 Q* = "ENF0NCEZ LJNE TOUCH! POUR LA SUITE" 
130 VTAB 23: HTAB 1: CALL - 8^8: PRINT Of ;:H 

= PEEK <36> + 2: RETURN 
135 ON Q GOTO 140,145,150,155 
140 Of " "MDNTANT DE L ^ EMPRLNT " : RETURN 
145 D* = "NOMBRE DES WNUITES ": RETURN 
150 » = "TAUX DE L'INTERET ": RET URN 
155 = "MONTANT DE L'AWUITE" : RETURN 
160 CN Q GOTO 165,170,175,100 
165 ME = UAL <R$) : GOTO 100 



170 NA = VAL <Rt): GOTO 100 
175 IN = UAL (ft*): GOTO 100 
1B0 : 

185 REM mm**#*#**i***#**m****m 
m REM *** CALCUL & AFFICHAOE *** 
1 95 REM #*-***#*#*#** 
200 : 

205 GOSUB 90: GOSUB 95 

210 IN = IN / 100:MS = NE 

215 MA = ME * IN / (1 - U / (M IN) *W*)>:VA 
= INT (MA * 100 # .05) / 100:Q = + 1:R* 
= STR* <UA): GOSUB 135s GOSUB 160 

220 V = 10: GOSUB 105 

225 FOR I = 1 TO - MA - ME * INsME = ME 

- m 

23GV = V + 1: VTAB V: PRINT I;: HTAB 3: PRINT 
At; 

235 t* = STR* < INT (AM * J00 * ,5) / 100): 60 
SUB 295: KTAB 17 - U: PRINT U*j; HTAB 21s P 
RIKT R$;:lii = STR* ( INT <NE * 100 + .5) / 
100): GOSUB 295: HTA8 35 - U: PRINT \S% 

240 IF I = t CR I - 10 THEN GOSUB 110 

245 IF 1 = 9 THEN TEXT ; GOSUB 125: GET H$: G 
DSUB 95 sV =10: GOSUB 105: HOME 

250 NEXT I 

255 IF NA ) 9 THEN TEXT : GOSUB 120: GET H$: 
PRINT IF H* = T THEN GOSUB 95: HOME 
:Q = 3:ME = MS: GOTO 215 

260 TEXT : GO BUB 90; GOSUB 115s GET Kts IF AS 
C <H$) = 27 THEN HOME : END 

265 RUN 

270 : 

275 REM *t*««»i*#ftft*»«ft*ft*ft*»«ftft»ft»ft*ft 
290 REM *** PRINT USING »*» 
2B5 REM Mtt**ft«*f fttt«**ft*Kft*##****fftii*» 
290 i 

295 L = LEN (U*):LP = L - 2: IF LP < = THEN 
310 

300 FOR U = L TO LP STEP - Is IF MID* (U$ P U, 

1) = CHR* (46) THEN 315 
3B5 NEXT U 
310 U = L + 1 

335 RETURN . 
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Programmer ? 

Bien sur que cela 
en vaut la peine ! 

Je ne suis pas informaticien de metier, mais j'utilise 
rinfarmatique — cell© qui passe par des machines 
des types fBM 34 et 38 — depuis de nombreuses 
onnees. Disons, .pour etre plus precis, que je la 
SUBfSSAIS, comme tout un chacun subit octuellement 
la television. 

Premier contact 

Mon premier contact avec un ordinateur personnel ne 
se revela pas aussi conduant que I'eOt souhaife mon fils 
(le falentueux redacteur en chef de CHASSEUR DAMA- 
GES), possesseur d'un APPLE de la premiere genera- 
tion. 

If crut en effet eblouir le damiste {et problemiste) que je 
suis en mettant en ceuvre un logiciel qui, effect rvemcnt, 
jouait aux dames, mieux que moi certes, mais sans me 
reveler ses secrets. 



156 

PROBLEMFS 
DE LOGIQUE 

concus sur 
ordinateur 
Personnel 
APPLE 





Que Ton ne puisse pas savoir avec 
quoi on faisait quoi me parut a la 
fois etonnant, et pradigieusement 
aga^ant. Aux Editions Jibena, les 
I istages des programmes de 
I'lBM 38 ne sont pas confidentiels, 
Je n'y comprends rien, mats [e jau- 
ge.,, des yeux, le genie de leur 
auteur. 

Avec ce jeu de dames : le mystere. 
Je me promis afors d'aborder I'm- 
formatique autrement, de I'autre 
cote de la barriere, Jlgnorais 
quand, mais je savais que je n'ac- 
cepterafs pas de me laisser passi- 
vement gufder dans des labyrin- 
thes — fussent-ils geniaux — , 
construits par d'autres. 

D'abord, un PC 1210 

Celo se passa un peu plus tard avec 
le tout nouveau PC 1210 de SHARP. 
Que de soirees se prolongerent.., 
lot le matin ■ Comme mes pouvres 
yeux souffrirent en essayant de 
dechiffrer I'unique ligne d'afficha- 
ge de cet etonnant calculateur ! 
Mais quel plaisir, pour le ludogra- 
phe, que je suis, ainsi place devant 
des enigmes jamais rencontrees ! 
Tout dans la teTe... tout le pro- 
gramme, s'entend. Lister restait 
evidemment possible, mais relati- 



vement languet^, et cauteux* 
J'al reinvente, sur SHARP, les car- 
res magiques et autres amusettes 
rnothematiques, et j'ai mime 
reussr, sans MID$, LEFT$ et RIGHTS, 
a croiser des mots de trois leftres. 
Parfaitement ! 

Ce fut a ce moment-Id que Tun de 
mes mellleurs collaborateurs 
— peu satisfait d'ailleurs de me 
voir plonger dans I'univers du 
BASIC (il a change d'avis depuis) — 
essaya, lui aussi, sur son IBM 34, de 
creer des grilles de mots croises. 



Apple, enfin 



Mais entre temps j'avais acquis, sur 
Jes conseils judicieux de mon fils, 
un APPLE ll-j- , flambant neuf. 
Que croyez-vous qu'il arriva ? 
Parole : je n'ai jamais essays le 
logiciel de dames (un nouveau, 
plus performont, paraft-i!) que f'on 
rn'avait remis en prime. 
Par contre, depuis trois ans, j'ai 
ecrit pfus de 30£) programmes ine- 
difs dont les produits paraissent 
regufierement dans la cinquan- 
taine de revues de jeux et mots 
crorses Guy-Hachette. 
Je ne raisonne plus comme autre- 
fois, et je reste persuade que je 
n'aurais jamais invente, sans la 
micro-informafique.,, et le Basic, 
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le dixieme des amusettes que j r ai 
prog ram mees. D J ailleurs r ou 
aurab-[e trouve le temps d'y pen- 
ser ? 

Les heures passees a aligner les 
fignes de Basic sont rapidement 
amorties quand le micro-logicief 
fonctionne et produif, en quelques 
minutes, et sans erreur, ce que le 
penseur elucubrait en dix fois plus 
de temps ! 

Naturellementj il ne servirait a rien 
de vouloir imiter MAGICALC (ex- 
cellent logiciel, efficace et prati- 
que), Pourtanf, a quoi bon utifiser 
un puissant tableur, quand on sail 
n'avair a afficher que dix colonnes 
de chiffres ? II vaut mieux afors 
ecrire sa propre application, avec 
de beaux ecrans — bien a soi — t 
agreables a regarder. 
C'est amsi que Ton ne subit pas 
I'rnformatique, 

Tenez, je vous signale au passage 
que j'ai prefere ecrire ce texte a la 
main,,, plutot que sur mon APPLE 
IIC, avec EPISTOLE, ou sur LISA.,, 
ou encore sur MACINTOSH -LISA. 
Je suis un original, Un original qui, 
de temps en temps, pour le plaisir, 
aime reprendre so liberte et 
retrouver le chemin du papier... Un 
original qui reste un editeur de 
revues de jeux, pas vrai ? O-H 

HUIfHtiHHHtlll»HI|||«||ff||||||| Hll|VIBII 

TREMPLIN MICRO 



BASIC SEUL 



10 PRINT CHR* (4) B PRf3 l : PRINT : REM 

ACTIVER LA CARTt 80 CDLOMNES 
20 DIM H»<23)!A = 39 

30 UTAB l! PRINT " IMPRESSION D'UN ECR 
m 80 COLONNES 11 : VTAB 2: FOR I = I 
TO 20; PRINT " NEXT 

40 POKE 34,3i LIST ; POKE 34,23 

50 : 

60 REM **##*#*«»**»««***»****«***•*»* 
70 REM * LECTURE OE L'ECRAN 80 COL . * 
80 REM ****##******«*»*»************* 
90 : 

100 FOR E = TO 23i READ L 

110 FOR 1 = L TO L + A; POKE - 162??, 
Q;M*<E) = M*<E> + CHR* < PEEK <I)) 
i POKE - 16300 ,0:M*<E) = M*(E> + 
CHR* < PEEK U)>: NEXT : NEXT 

120 PRINT CHR* t4)"PR£r: PRINT CHR* 
<27>-E"s: PRINT CHR* (27) "LOIS" r 
PRINT CHR* CP) # 80N" 

130 FOR I = TO 23; PRINT M$U)i NEXT 
! PRINT 

140 PRINT CHR* <4>'PR£0"! PRINT CHR* 
(4> B PR£3'i END 

150 : 

1 60 REM lt«MW»»«###M»#M#Mt» ***** 
170 REM * ADRESSES DES 24 LI ONES * 
180 REM a***************************** 
190 : 

200 DATA 1024 ,1152, 1280 ,1408, 1536, 1664 
t 1 792, 1?20, 1064, ^\?2 ^ 1320,1448,1576 
,1704,1832,1960,1104,1232,1360,1468 
,1616,1744,1872,2000 



10 m = "X" s REM VARIABLE LIGNE D'ECRAN 

20 PRINT CHR* <4)"PR£3"i PRINT : REM ACTIUER LA CARTE 80 COLONNES 

30 UTAB 1: PRINT "IMPRESSION D J UN ECRAN 80 COLONNES" : UTAB 2s FOR I ~ 1 TO 20 

: PRINT " ";: NEXT 

40 POKE 34, 3i LIST : POKE 34,23: PRINT CHR* <4)"BLOAD IMP.LM" 
50 j 

60 REM ****************************** 
70 REM * LECTURE DE L'ECRAN 80 COL, * 
80 REM ****************************** 
90 : 

100 PRINT CHR* (4) tl PR£l": PRINT CHR$ <27)"E a ; : PRINT CHR* 1 27) ■ LO 1 5 fl : PRINT 

CHR* WeON" C v &4tt" , dre*htwllem9»h) 
110 FOR E = TO 23: READ L 

120 POKE 788 ,L - INT CL / 256) * 256: POKE 789, INT <L / 256) 
130 CALL 768 
140 PRINT M*t NEXT 

150 PRINT CHR* <4>"PR£0"s PRINT CHR* <4>"PR£3 fl s END 
160 ; 

170 REM ****************************** 
180 REM * ADRESSES DES 24 LI ONES * 
3 90 REM ****************************** 
20Q : 

210 DATA 1024,3 152,3 290,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704 
, 1 832 , 1 960 , 1 1 04 , 1 232 , 1 360 , 1 488 , i 61 6 , 1 744 , 1 872 , 20 00 



COPIE D'ECRAN [ 



APPLE II 



avec carte 80 COLONNES 

Quand on ne dispose pas d'une interface tmpri- 
rnanie autorisanf la copie d'ecran en 80 colon- 
nes t on soffre I'un des pefits programmes que 
void : 

Le n°1 vqos obligera a patienter un peu plus de 
30 secondes, plus I'impression* 
Le n°2 utilise une routine en langage machine, 
et il est instantane. 



Attention ! 
Mt doit §tre 
fo premiere 
variahie du 
programme i 




BSAVE IMP.LM, A$300, L$49 



BASIC 
& L/\4 



GUY-HACHETTE 
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Ma chere 
vieille pomme, 



• Parce que, en devenant riche, tu 
deviens Here, tu oublies que 
«$ante passe richesse»... 



• Mais aussi parce que nous 
■ t'aimons bien, pepins compris ! 



<MMi 



*j 1 OUS sommes nombreux. un peu partout sur la planete. a passer de trop courtes soi- 
1 rees (ce n'est pourtant pas faute de ies prolonger I) en ta compagnie. 
Tu nous empojsonnes I'existence avec des defauts que la jeunesse excusait, rnais que les 
annees rendent proprement insupportables. 

Ton c]avier n est pas detachable, et ne comporte ni pave numerique ni touches program- 
mables. Quant au modele franco-americain, il est difficile de s'y habituer {a quand la possi- 
bility d'afficher en AZERTY ou QUERTY par programme ?). Ton basic a laisse tomber le 
PRINT USING et quelques autres instructions en grattant ses puces. 
Depuis le temps, au moins a retention de ceux qui n usent pas {ou pius) du BASIC INTE- 
GER, tu aurais pu creer une jolie petite disquette MASTER permettant de doper le basic 
APPLESOFT, mais passons : d'autres pallient ces oublis, II faut bien que tout le monde 
vive. n'est-ce pas ? 

Heureusement, ton image de marque est bonne. Excellente meme. Chez tes amis du 
moins. A tel point que certains d'entre eux ont commande, led yeux fermes, un Lisa puis 
un MAC. On ne peut pas dire que leur fidelite ait ete recompensed De Lisa, evttons de par- 
ler : attendre les nouveaux modeles, comme tes clients prudents. alleches par les recla- 
mes que nous avons payees, eut ete preferable. Pour MAC, les choses ont ete un peu plus 
claires, Fermons cette parenthese : elle n'a qu f un faible rapport avec toi t vieille Pomme. 
Nous disposons maintenant de ta version portable. C'est vrai que, de nom, si Ton exclut 
les fi!s. I'alimentation et I'ecran. il devient reellernent portable, ce modele lie. 
Je te signale au passage que, personnellement je f'aurais pourvu de la version rapide du 
6502, tu sais, celle que Ton trouve sur les accelerateurs. couramment diffuses au prix,., 
d une unite centrale? 

Et voila que nous arrive, avec son PRODOS. son microprocesseur de 16 bits, et son basic 
complet. TAPPLE llx", un veritable ordinateur personnel up to date (pour combien de 
temps ?), avec — bravo ma vieille pomme I — une compatibility qui fionore ton nom. 
Permets-moi de te rappeter que pigs d"un million d'amateurs des fruits de la passion, cela 
compte. Meme quand une pub budgetivore croit pouvoir convaincre les chefs d entreprise 
et autres clients potentiels que, indiscutablement, c'est une Pomme qu h il leur faut (moi, 
je suis d'accord, note bien.,, et sans que ceia te coute un seul denier). 
Ton image de marque etait excellente. je le rappelle. II nous deplairait que tu la ternisses 
en te compromettant avec des gens qui sont incapables de t'aimer... parce qu'ils ne feront 
jamais reffort d'apprendre a te connaltre. 

Car ton avenir. quoi qu h en pensent tes conseilieurs, passe encore par la programmation... 
et ceux qui s'y adonnent. 

Parfaitement. ma vieille Pomme I En toute amitle Guy-Hachette. 



■IIIIIHflMMMMMMHMMHHHHMVHHM Vlllimilllllfflflff If ■■»■■«■ 

TREMPLIN MICRO 



LA MEMOIRE D£ WIRE APPLE * 



oboi- 

08Q9- 

0811- 

0B19- 

0821- 

Q829- 

0831- 

0839- 

0S41- 

0B49- 

0651- 

0B59- 

0B&9- 

0671- 
DS7? 



17 oe 
2B 34 
22 3A 
14 00 
2A 20 
4F 49 
56 4F 
SO 4C 
3A B9 
33 JA 
pD 00 
DO 31 
24 DO 
5F 5F 
3A 82 
52 24 



OA 08 
29 22 
BA 3A 
54 24 
4C 41 
52 45 
54 52 
45 20 
31 34 
9E 3A 
82 08 
CI 31 
54 52 
5F 51= 
3A A3 
3A B? 



S¥ 3A 
50 52 
97 00 
DO 22 
20 4D 
20 44 
45 20 
2A 2D 
30 33 
BA 54 
IE 80 
30 3A 
24 CS 
5F SF 

32 3A 

33 34 



BA E7 
23 33 
53 08 
2D 2D 
45 4D 
45 28 
41 50 
2D 22 
2C 32 
24 3A 
81 49 
54 52 
22 5F 
5F 22 
8A 54 
2C 33 



2049 

2057 

2065 

2073 

2031 

208? 

2097 

2105 

2113 

2121 

2129 

?137 

2145 

2153 

2U1 

2169 



8 10 

52 41 
58 IB6 



34 

32 76 

73 82 

79 84 

76 69 



23 
40 
34 
20 
42 
79 
34 

ao 

58 185 49 
51 58 158 
157 130 
208 4? 193 
36 208 84 
95 95 95 
58 130 58 
87 36 58 



137 
34 80 
58 151 
36 20 B 
65 32 
69 32 
82 49 
32 42 
52 48 
58 1B4 
8 30 
49 48 
82 34 
95 95 
1 62 50 
185 51 



58 186 231 

82 35 51 ...-PR-- 

83 8 S * 

34 45 45 ..T...*. 

77 69 77 ..LA.HEM 

68 69 32 01RE.DE. 

32 65 80 VOTRE. AP 

45 45 34 PLE 

51 44 50 

84 34 58 T.j 

129 73 

58 84 S2 

200 34 95 ..TR...- 

95 95 34 • 

58 1B4 84 ' 

52 44 51 R 



<l> SUITE 



<2 > autre adresse de depart < 3 > nt^™*^ 



Evidemment, 
qu'elle vous interesse... 
la memoire de votre Apple ! 



Vous est-il deja arrive 
de vouloir modifier, 
sans en changer to 
longueur, un 
programme, en 
basic... f ermine par 
une routine (invisible) 
en langage machine ? 

En examinanf la 
memoire de votre 
Apple, tout devient 
plus facile, et un 
simple POKE permet 
de rem placer un 
caractere ASCII 
par un autre. 

Dans cette version, je 
ne fais apparattre que 
les lettres capitales 
(de A a Z) t mois ie 
programme est 
perfectible 
(de$3AA a$3CE). 

A vous de jouer } 



10 
20 

30 

40 
50 

60 

70 

80 
90 
100 

1 10 

120 
130 
140 



150 
1*0 
170 
180 



TEXT : PRINT CHR* <4> "PR£3" : PRINT ; HOME 
T* = " — * LA MEMOIRE DE VOTRE APPLE * — " : POKE 1403,23' 

INVERSE : PRINT T* s NORMAL 
FOR 1 = 1 TO 10 :TR* = TR* + " »j NEXT : UTAB 2: 

PRINT TR*; POKE 34,3 
HOME : UTAB 21 : PRINT TR* 

UTAB 23: POKE 1403,24; CALL -198: INPUT "ADRESSE DEC 
I MALE DE DEPART => 11 (AD*: IF AD* = ■ ■ THEN 140 

> 5 THEN 50 
ASC < MID* <AD* P I,1>): IF AS < 4B 



L = LEN < AD*) : IF L 
FOR I = 1 TO Li AS = 
OR AS > 59 THEN 50 
NEXT 

UAL <AD*> 

6 1 AD - INT CAD / 25*) 



AD = 
POKE 
5<5> 
HOME 
68 

UTAB 
UTAB 



UTAB 21 i PRINT TR* 



* 25* 
UTAB 5 



POKE 7, INT < AD / 2 
POKE 1403,0 : CALL 7 



: CALL 874 
: CALL 938 
UTAB 23: POKE 140 3,10: CALL 
<2> AUTRE ADRESSE DE DEPART 
ET H*: PRINT 

IF H* m »i M THEN AD = AD + 128 
IF H* = "2" THEN 40 
TEXT : HOME ; END 
GOTO 140 



- 1 98 ; PRINT *<1> SUITE 
<3> FIN DE PROGRAMME " ; : G 

GOTO 100 



VOUS POUVEZ AJOUTER UNE LION E 15 : 
1 5 PRINT CHR$(4) "BLOAD EXAAAEAA.LAA 



GUY-HACHETTE 
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U iJ u u 


AR 






LDA 


$0 6 


0302- 


8D 


3E 


3 


ST A 


$0 33E 


0305- 


8D 


75 


03 


STA 


$0375 


3 8 - 


SD 


B3 


03 


ST A 


$0383 


030B- 


A5 


07 




LDA 


S07 


030D- 


8D 


3F 


03 


STA 


*033F 


n 3 i f) — 

U J 1 v 




76 


03 


STA 


*0376 


3 13- 

L, 1 >i_> J w 


RD 


R4 


03 


STA 


SO 3B4 


031 /> — 


A7 


□ 

Ll LI 




LDX 


£ S 


ri^l R _ 
L 1 O -1 O 


OA 
OM 






TXA 




n^i o- 


*T O 






PHA 




n 3 i A — 


r-t X 


n n 




1_ L'l^ 


Jt. * Ll 




cn 

~ u 






rpy 


J_ +* KJ Cj 


n 3 1 f - 


90 


2 




BCC 


$0 322 


n 3 ? rS — 

U J ^ u 


AO 
H T 


n R 




1 DA 




f 1 Q 9 9 — 


1 ft 






L- L 




n3^Q- 

li o 


65 


06 




ADC 


* n 6 


0325- 


85 


06 




STA 


$06 




AA 






TAX 




0328- 


A5 


07 




LDA 


*07 


32A- 


69 


00 




ADC 


£$00 


3 2 C - 


85 


07 




STA 


$07 


032F- 


20 


41 


F9 


JSR 


$F94 i 


\J O J 1 


A9 


AD 




LDA 




□ 333- 

Hj *j *j w 


2D 


FD 


FD 


JSR 


$FDED 


D336- 


20 


57 


DB 


JSR 


*DB57 


n 3 39- 

LJ w -w .* 


6R 






PLA 




n 33A" 


AA 
f if I 






TAX 






API 


nn 




LDY 


£$00 


n 3 3 n _ 


Rn 


nn 


08 


LDA 


$0ROO X 

4* sJ \J \J Ti* | /\ 


n^4n — 


7f1 
£. U 


DA 


FD 


lj o- r\ 


$FDi>A 


U d *T O 


711 
£ U 


o / 


DR 






0346- 


FR 






I NX 




0347- 


C8 






I NY 




348— 


CO 


08 




CPY 


£$08 


34A- 


nn 






BNE 


L" U L.' 


34 C- 


20 


57 


DB 


JSR 


* DB57 


034F- 


8A 






TXA 




LJ vJwU 








PHA 




0351 — 


A A 

P^ O 


06 




LDX 


$06 

LI tJ 


353- 


A5 
p^ i_p 


07 




LDA 


$07 




7n 
4_ ij 


Rn 


FF 


JSR 


SFFRO 


n 3 i s£i— 

U J JO 


■ << 




□ n 
c u 


TOD 

j on 


l_ IJ 


n ta- 
ll i33D 


rs/i 
£ U 




r t 




v r t CJ*f 




DO 






PI (Ci 






AA 

HH 






TAV 
i 




0360 — 


F0 


Rn 




CPX 


£$80 


0362 — 


F0 


5 




BEQ 


$0 369 


364- 


20 


FB 


DA 


JSR 


$DAFB 


0367- 


DO 


AF 




BNE 


$0318 


o o ? 


60 






RTS 




D36A- 


A2 


00 




LDX 


£$00 


36C- 


A9 


25 




LDA 


£$25 


D36E- 


B5 


24 




STA 


$24 


0370- 


A9 


00 




LDA 


£$00 


0372- 


85 


OA 




STA 


$0A 


0374- 


BD 


00 


08 


LDA 


$0800 ,X 


Q 3 7 7 — 


85 


8 




STA 


$0 8 




C9 


DA 

Lfl 1 




CMP 


£$DA 


l~* 3 "7 R *- 




Li O 




err 


*UJOJ 


□ 37D - 


C9 


64 




CMP 


£$64 


037F- 


90 


5 




ecc 


$0386 


381 -■ 


BO 


06 




BCS 


$0389 


0383- 


20 


57 


DB 


JSR 


$DB57 


0386- 


20 


57 


DO 


JSR 


$DB57 



038?- 


20 


57 


D B 


c r\ 


4> DRS 7 


038C- 


86 


9 




OTV 
O 1 A 


■4: fi O 
+■ Ll T 


3SE- 


A6 


R 




i ny 




n 39fi — 


A9 


[in 




i nA 


Jl *■ L" U 


392 — 


20 


24 


FT) 


.1 RR 
t/ 9 r\ 






AX 






i ny 


<tno 

^ U X 


11 39 7 — 


( o 






T WY 
J, IN A, 




L/ / LJ 


1 _ VJ 


DA 




T MP 


3> Ll 1-1 


039A" 


A5 


OA 




LDA 


*nA 


039C- 


C9 


8 




LjI 1 1 


it ** L 1 O 


n q o C _ 


L J L 1 


D4 




RNF 


*n 37^i 


n 3An — 

LI LI 




Rfl 




rpy 


t *on 

JL -r • ' 1 1 


n 3A2- 




h 

LP w 1 




Rrn 

DLU 


n 3 A 9 

* L< J H T 


n 3A4 — 








.TCD 




f 1 3A 7 — 

LI ^ 


nn 


P3 




Ol M KZ. 


*n 3xr 

V Ll OOLj 


n 3 A 9 — 


xn 






r\ i o 




3A A - 


A7 


n n 




L_ L ' /S 


f*n n 

t * U Ll 


n 3ap— 

K } n \ 1 i. • 


A9 


J7 
•t ^ 




1 UrH 


SL » *i f 




O i— f 






9 1 H 




n 3Rfi — 

U L.J LJ 


AH 
M U 


u u 




i r*iv 


t fUU 


fl3R9- 




n n 


n n 


1 DA 


* n r n r i v 

* uquu j y\ 


n 3 p s — 


£ U 


/ \j 


l_ Ll 


u a pc 


*tu rU 




Rn 






Rpe 

DLD 


■PL 1 JDL 


n 3 R A — 


AO 

T 1 


AF 




1 DA 




03BC- 


20 


FD 






scncn 


n 3nr - - 


pa 

Lj CJ 










f'l 3 f " 1 1 - 

L 1 *J Lj L. 1 


FR 






t Kfy 

i iNA 




03C 1 - 


CO 


np 

Ll O 




PPY 


£$0 8 




DO 

L/U 


FD 








03C5- 


EO 


80 




CPX 


£$80 


03C7- 


B0 


05 




BCS 


$03CE 


03C9- 


20 


62 


FC 


JSR 


*FC62 


03CC- 


90 


DE 




BCC 


*03AC 


03CE- 


60 






RTS 





*300 . 3CE 



0300- 


A5 


06 


8D 


3E 


03 


8D 


75 


03 


0308- 


80 


B3 


03 


A5 


07 


BD 


3F 


03 


0310- 


80 


76 


03 


8D 


B4 


03 


A2 


00 


0318- 


8A 


48 


A9 


00 


Ed 


08 


90 


02 


0320- 


A9 


08 


18 


65 


06 


35 


06 


AA 


0328- 


A5 


07 


69 


00 


85 


07 


20 


41 


0330- 


F9 


A9 


AD 


20 


ED 


FD 


20 


57 


0338- 


DB 


68 




AO 


00 


BD 


00 


08 


0340- 


20 


DA 


FO 


20 


57 


DB 


E8 


CB 


0348- 


CO 


08 


DO 


Fl 


20 


57 


DB 


BA 


0350- 


48 


A6 


06 


A5 


07 


20 


80 


FE 


0358- 


20 


24 


ED 


20 


84 


FE 


68 


AA 


0360- 


E0 


80 


F0 


05 


20 


FB 


DA 


DO 


368- 


AF 


60 


A2 


00 


A9 


25 


85 


24 


0370- 


A9 


00 


85 


OA 


BD 


00 


08 


B5 


0378- 


08 


C9 


OA 


90 


06 


09 


64 


90 


0380- 


OS 


B0 


06 


20 


57 


DB 


20 


57 


3B8- 


DB 


20 


57 


DB 


86 


09 


A6 


08 


0390- 


A9 


00 


20 


24 


ED 


A6 


09 


ES 


0398- 


E6 


OA 


A5 


OA 


C9 


OB 


DO 


D4 


3A0- 


EO 


80 


F0 


05 


20 


FB 


DA 


DO 


3A8- 


C3 


60 


A2 


00 


A9 


47 


85 


24 


3BO™ 


AO 


00 


BD 


00 


08 


20 


7D 


E0 


3B8- 


B0 


02 


A9 


AE 


20 


ED 


FD 


C8 


3CO- 


E8 


CO 


08 


DO 


ED 


EO 


80 


60 


3C8- 


05 


20 


62 


FC 


90 


DE 


60 





BS AVE EXAAAEM LAA, A$30G, L$CF 
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TREMPUN MICRO 



Hexadecimal 
en decimal, 
et vice versa 



// faut absolument conn aft re tes nombres hexade- 
cimaux jusqu'd.,, 255, Le calcul ne necessite pas 
de programme, sinon dans la fete, 

JUSQU'A $1 (le dollar stgnale un nombre hexa), 

s'habituer a compter en hexa : I, 2, ....8, 9 A B 
C D, E, F. 



Pour convertir rapidement une valeur DEC1- 
MALE en valeur HEXADEC1MALE, il existe 
aussi un moyen simple, a partir du moniteur. 



UTILISEZ LA FORMULATION SUIVANTE : 



] N = 2048 (par exemple) 

] POKE 6,N — INT(N/256) * 256 

] POKE 7,INT(N ,256) 

] CALL-151 

*6.7 

*0006 — 00 08 (EN INVERSANT = $0800) 



(RETURN) 
(RETURN) 
(RETURN) 
(RETURN) 
(RETURN) 



Pour transformer de ['HEXA en DECIMAL, le 
processus est inverse. 



] CALL- 151 
*6:0008 

*CTRL-C (retour nu bosk) 

] PRINT PEEK(6) + PEEK(7) * 256 

] 2048... ET LE TOUR EST JOUE 1 



(RETURN) 
(RETURN) 
(RETURN) 
(RETURN) 



Ou encore, toujours a partir du moniteur : 



] CALL- 151 

*45:08 00 (dans le bon ordre) 

* E 024 G (ie G 6qulvaut au RUN du BASIC) 

*2048 (Extra, hem ?) 



EXPLICATION 



(RETURN) 
(RETURN) 
(RETURN) 



A I'odresse $45, on sauvegarcle I'ACCUMULA- 
TEUR, et en $46 le REGISTRE X. 
$ED24 est une routine APPLESOFT qui affiche 
gentiment la valeur DECIMALE de A f X. 
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• A PARTIR DE$10 

se Uvrer mentalement a la 
petite gymnastique suivante : 

— Multiplier le premier chif- 
fre du nombre hexa par 16, 
puis ajouter le chiffre des 
unites au total. 

Exemples s $10 = 1 x 16 + 0, soit 

16. S11 =1x16+ 1 S soit 17. 

$1A = 1 x 16 + 10{A=10en 

hexa). soit 26. SF1 = 1 5 x 16 + 

1, SOtt 241. 

• Pour convertir un nombre 
decimal en nombre hexa, 
adopter une demarche in- 
verse, 

— Le diviser par 16.„ pour 
obten/r le chiffre des uni- 
tes, puis prendre le reste 
de la division pour faire le 
chiffre des dizaines, 

Exemple : 241/16 donne 15 et un 
reste de 1. Naturellement, on com- 
mence par convertir 15 en $F H puis on 
place fe 1 acotepourobtenir SF1. 



H 




D 


H 




D 


H 




D 


$0 







$10 




1 6 


$20 




32 


$1 




1 


$11 




17 


$21 




33 


$2 




2 


$12 




13 


$22 




34 


$3 




3 


$13 




19 


$23 




35 


$4 




4 


$14 




20 


$24 




36 


$5 




5 


$15 




21 


$25 




37 


$6 




6 


$16 




22 


$26 




38 


$7 




7 


$17 




23 


$27 




39 


$6 




8 


$18 




24 


$28 




40 


$9 




9 


$19 




25 


$29 




A 1 


$A 




10 


$1A 




26 


$2A 




42 


$B 




1 1 


$18 




27 


$28 




43 


$c 




12 


$1C 




28 


$2C 




44 


$D 




13 


$1D 




29 


$2D 




45 


$£ 




14 


$1E 




30 


$2E 




46 


$F 




IS 


$1F 




31 


$2F 
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Ce programme comporte une 
erreur. 

A vous de la decouvrir ! 

(Reports? page 62). 



Aiguillage vers la bonne ^ 
destination. 



Erreur desaisie. ^ 



Retour a INPUT si le carao 
tere n'est pas un chiffre. 



3 TEXT : NORMAL i HOME 

20 INVERSE : PRINT 11 CONVERSION DECIMALE-HEXA ET INV 

ERSE 11 : NORMAL i POKE 34,3 
30 FOR I - 1 TO 10;T$ = T* + " ": NEXT i VTAB 19; 

PRINT 1% 

40 VTAB 21 ! PRINT 11 FA] RE PRECEDER LA UAL EUR PAR <H> 

OU <D>" 

50 : 
60 
70 
80 
90 i 

100 POKE 35,10-fUE = 2 

110 VE « VE + 2: IF VE > 17 THEN VE = 4 
120 VTAB VEs HTAB 1: CALL - 868: INPUT "VOTRE VALEUR 
";V$: IF V* = n " THEN 490 

LEN <V*> - 1:W* = RIGHT* < < " 
ASC (V$> = 72 THEN 220 
ASC <V*> = 48 THEN VA = 



REM ****************************** 
REM ** INPUT VALEUR A CONVERT I R ** 
REM ****************************** 



L = 
IF 
IF 

GOTO 120 



+ V$),L) 



VAL <W*)i GOTO 340 



REM ****************************** 
REM *** HEX A VERS DECIMALE *** 
REM ****************************** 



130 
140 
ISO 
160 
170 
180 
190 
200 
210 : 

220 VA = 0: IF L > 4 THEN 120 

230 GOSUB 470; PRINT "HEXA->DECI = " ; 

FOR I 55 1 TO L:AS = ASC < MID* <W$,I,1>) - 48 
IF AS > =0 AND AS < 10 THEN 280 
IF AS > 16 AND AS < 23 THEN AS = AS - 7: GOTO 280 
GOTO 120 

280 VA = 16 * VA + AS: NEXT :V* = STR* (VA) : GOTO 480 
290 : 

300 REM ****************************** 
310 REM *** DECIMALE VERS HEXA *#* 
320 REM ****************************** 
330 s 

340 V$ = " " : IF L > 5 THEN 120 
350 FOR I = 1 TO L:AS = ASC ( MID$ <W*,1, 1>) 
360 IF AS < 48 OR AS > 57 THEN 120: NEXT 
370 GOSUB 470: PRINT "DECI^HEXA ■ l[ ; 
380 VB = INT (VA / 16>:CH = VA - 
390 IF CH > 57 THEN CH = CH + 7 
400 V* = CHRf <CH) + V*: IF VB < 
410 GOTO 480 
420 ! 
430 
440 
450 
460 
470 



240 
250 
240 
270 



16 * VB + 48:VA = VB 



> THEN 380 



REM ****************************** 
REM *** AFFICHA6E MODE INVERSE *** 
REM ****************************** 



480 
490 



VTAB VE: HTAB 14: INVERSE : PRINT W*;; NORMAL 
RINT " ";i RETURN 

INVERSE : PRINT V*: NORMAL : GOTO 110 
TEXT : HOME : END 
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Pendant la saisie : En mode correc- 
tion, it est inutile 
de retaper une donnee exacte. Un 
simple (RETURN) suffit. 



Vous etes certes 
au courant... 
mais cela vous 
coute combien ? 

Amusez-vous d enregistrer (ce sera vite 
fait !) vos factures d'electricite depuis 1980, 
par exemple^consommation et montant). 

Le$ moyennes mensuelles ne rnanqueront 
pas de vous surprendre. 

Si vous ne possedez pas de carte AAtD pour 
votre imprimante, utilisez le petit programme 
de la page 40, 

Le listage ci-apres devrait maintenant vous,,, 
eclairer f 



1 

20 
30 
40 
50 
60 
70 
B0 
90 
100 
110 

120 



TEXT | PRINT CHR$ C4)"PR£3": PRIN 
T 

DIM C<10 1 4 s l> t T<4,i> 
GOTO 1070 

REM a***************************** 
REM ***** S A I S J E ***** 
REM *****#************##********** 

t 
i 

POKE 32,0; POKE 33,49 
IF CR THEN INVERSE 
VTAB 4: POKE 1403,7: PRINT ND + AN 
- 1: IF CR THEN NORMAL : RETURN 



TO 6: IF CCAN, I ,0) = T 



1 30 
140 



160 



170 
180 

3 90 



1 i GOTO 140 



: FOR 
PRINT 



I = 1 TO 6; MTAB 
I; NEXT : NORMAL 



+ 

GO 



FOR I = 1 
HEN N = I 
NEXT 

INVERSE : 

I * 2i 
SUB 420 
150 N - N + 1 

VTAB 19: POKE 1403, Or INVERSE ! PR 
INT N;r NORMAL ; INPUT 11 C0NS0MMATI 
ON -> N |KW*i IF KM = AND C(AN, 
N ,0 ) < > Q THEN KW* = STR* <C<AN, 
N,0)>:A$ = KU*:U ~ 19; GOSUB 290 
IF Km = r "? J< THEN GOTO 650 
IF KW* a AND N > 1 THEN N = N 
- li GOTO 160 

IF Kbit = '■*" AND N AND AN > 1 THEN 
N = 6 :MA - AN :AN = AN - 1:CR = ii 
G0SUB 100: GOSUB 420 r GOTO 160 



IF NOT B THEN 



MON 
" AN 

STR* 
GOSUB 



200 V* = KWS: GOSUB 350 
160 

210 VTAB 21 s POKE 1403,0: INPUT 11 
TANT FACT.-> " ;CN$: IF CN$ = 
D C(AN f N,l) < > THEN CN$ * 

<C<AN,N P ] )> :A$ - CN$:U = 2t : 

290 

220 IF CN$ = »?■ THEN C<AN,N,0) = UAL 
(KW*): G0SU8 420: GOTO 650 

230 IF CN* = ■*« THEN 160 

240 V* = CN*: GOSUB 350: IF NOT B THEN 
230 

250 CCAN^O) = UAL <Ktd$) :C<AN,N, 3 ) = 
VAL <CN$) i GOSUB 420 
IF CR THEN AN = MA: GOSUB 420 :N - 
i:CR - 0: GOSUB 100: GOTO 470 
IF N / 6 = INT <N / 6) THEN AN = 
AN + IsN = Q:ND = ND + 1 : CALL - 1 
98: GOTO 110 
GOTO 150 

PRINT : UTAB Vr POKE 1403,18: IWE 
RSE : PRINT A*: NORMAL : RETURN 



260 



270 



280 
290 



REM ****************************** 
REM ***** CONTROLE CHIFFRES ***** 
REM *********#**********#********* 



300 
310 
320 
330 
340 : 

350 8=0: FOR 1 - 1 TO LEN :AS = 

ASC ( MID* CW,I v l))i IF <AS < 48 
OR AS > 57) AND AS < > 46 THEN RE 
TURN 
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360 NEXT ;B = 1: RETURN 
370 : 

380 REM ****************************** 
390 REM ***** AFF1CHAGE OONNEES ***** 
4Q0 REM ****************************** 
410 : 

420 FOR 3 ■ 1 TO 6 

430 UTAB 4+1*2: POKE 1403,3: CALL 
- 868 

440 POKE 1403,7 - LEN ( STR* <C(AN > I 1 

0))): PRINT C<AN,I ,0) j 
450 POKE 1403,14 - LEN < STR* < INT C 

C<AN,I,1>>)>: PRINT C(AN,I ,1) 
460 NEXT : RETURN 
470 ! 

480 REM ************************ ****** 
490 REM ***** AFFICHAGE DU MENU ***** 
500 REM ****************************** 

510 ; 

520 ONERR GOTO 650 

530 FOR I = 1 TO 10 iT* = T$ + " 

_":TR$ = TR* + " NEXT 

540 POKE 1403,0: UTAB 1: PRINT "CONSOM 

NATION D'ELECTRICITE ET COUT 

ANNEES "ND;" 

-"AN 4 NO - 1: UTAB 2: PRINT T$ 

550 UTAB 4: POKE 1403 f 5i : PRINT LEFTS 

<T$ t 2?>: UTAB 14a POKE 1403,51: PR 

INT LEFT* <T$ t 29) 

560 INVERSE : FOR I = 5 TO 14: UTAB I: 

POKE 1403,51: PRINT ri " j : POKE 140 

3,79: PRINT " " ; NEXT : NORMAL 

570 ME* = Ml) ENREGISTRER FACT LIRE <2> 

SIMPLE CONSULTATION <3> EDITION D 

U TABLEAU <4> FIN DE PROGRAMME 
ii 

580 FOR I = 1 TO LEN <ME*> STEP 25: U 
TAB 5 + (I * 24) / 25 * 2: POKE 140 
3 54 

590 PRINT MID$ (ME*, I, 25): NEXT 
6Q0 I 

610 REM ****************************** 
620 REM **** MENU ***** 
630 REM ****************************** 
640 : 

650 POKE 32,52; POKE 33,29: POKE 1403, 
53s VTA 8 17i PRINT ; PRINT "Six fac 
tures annuel 1 es 



660 UTAB 21: PRINT : PRINT "* pour cor 
r i ger ? pour obtenir le 

MENU" 

670 UTAB 15: PRINT : CALL - 868: PRIN 
T IJ -> w ;: GET R$:R = PEEK (49152) 
- 48: IF R < 1 OR R > 4 THEN 670 

680 PRINT RS: ON R GOTO 90,750,750,690 



690 FIN = 1: GOSUB U10: TEXT : HOME : 
END 

700 : 

71 REM ****************************** 
720 REM ***** TABLEAU ANNEES ***** 
730 REM ****************************** 
740 : 

750 TEXT : HOME 

760 UTAB 20: POKE 1403,0: PRINT T$ 
770 UTAB 22: POKE 1403,0: PRINT "ANN EE 

S A AFFICHE ";: INVERSE I PRINT NO 

" -"ND + AN - 1 ; : NORMAL : INPUT 1 ( 

X,Y) -> "jAl* ( A2* 
780 IF Al$ - " IJ OR A2$ = "" THEN 770 
790 IF Al$ = 11 ?■ OR A2* = "" THEN HC3M 

E : GOTO 540 
800 Al * UAL (A1$):A2 = UAL <A2*) : IF 
Al < ND OR A2 > ND + AN - 1 THEN 7 

70 

81D IF A2 - Al > 4 THEN 770 

920 HOME : PRINT ; UTAB 2: POKE 1403,2 

7: PRINT "CONSOMMATION D'ELECTRICIT 

E" ; UTA8 3: PRINT TR* 
830 NE ~ A2 - Al + 1; INUERSE : FOR I = 
1 TO NE: UTAB 4: POKE 1403,1 * 20 

- 10s: PRINT Al + I - 1 ! NEXT i NOR 

MAL 

840 UTAB 5: POKE 1403,0: PRINT TR* 
850 «i = Al + 1 - ND ;A2 = A2 + 1 - ND : 

FOR I = Al TO A2:T<I ,0) = 0:T(I ,1) 

= 0; NEXT 

860 FOR 1 = 1 TO 6: FOR J - Al TO A2 
870 H = J * 20 - 20 ; UTAB 4+1*2 
880 POKE 1403, H + 8 - LEN < 5TR$ ( IN 

T <CCJ,I ,0))))s PRINT C(J,I,G>; 
890 POKE 1403, H + 15 - LEN C STR$ < I 

NT (C(J,1,1)))): PRINT C(J,I,i); 
900 T(J,0) = T<J,0> + CCJ,I,0>:T(J,1) = 
T< J , i ) 4 C< J, 1 ,1) ; IF I < 6 THEN 9 

60 
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mmmmammm piihiibim MmammmammmmwBMmmmamamawmmwam* at 



FtfJMMHJIIIHtfHHanHHUMH ■■■««» JIM 



ELECTRICITE 



{suite et fin) 



910 

920 



930 
V50 



960 
970 
980 
990 
1000 



I I 



1020 
1030 
1040 
1050 

ill/- 1. 1 

1070 
1080 



1090 



1100 
1110 



1120 
1130 



PRINT : PRINT TR* : INVERSE 
POKE 1403,H + 8 - LEN ( STR$ C IN 
T <KJ,0))>> : PRINT T< J,0> ; t POKE 1 
403, H + 15 - LEN < STR* < INT <T<J 
,1)>>): PRINT T<J>1);: NORMAL 
T< J,0) = INT (T<J,0) / 12) :TU,n 
= INT CT<J,1) / 12) 
PRINT : PRINT : IF C<J,I s i) = TH 
EN 960 

POKE 1403,H + 8 - LEN < STR$ ( IN 
T (T<J P 0))>) : PRINT T<J,0>;: POKE 1 
403, H + 15 - LEN < STfH < INT <T<J 
,!))>): PRINT T(J,1); 
NEXT : PRINT r NEXT 

■ 

REM **** ATTENTION! CARTE MID **** 

* 

UTAB 22; IF R = 3 THEN POKE 34,23 
; PRINT CHR$ (4)»PR£5*I PRINT CHR 
* C27)"q": PRINT CHR* <27)"L020 tl : 
PRINT CHR$ (9>"T": CALL 49230 + <2 
54 * 5) 

CALL - 198: POKE 
- 16384,128,127 
HOME : GOTO 540 



REM 
REM 
REM 



- 16368,0: WAIT 
POKE - 16368,0 



GOTO J 090 
CHR* < 4)" OPEN 
(4) "READ ELEC" 



ONERR 
PRINT 

CHR* 
UT NDi FOR I 
6: FOR K = 
: NEXT K, J , I i 

ELEC"; GOTO 
UTAB 22: HTAB 



ELEC" : PRINT 
INPUT AN: INP 



= 1 TO 
TO 1 

PRINT 
1130 

I: INPUT 



POUR 



NNEE 
AN* 
1090 

AN = 3 :ND = UAL 
PRINT CHR* (4) 
CHR* < 4) "WRITE 
INT ND: FOR I = 
TO 6: FOR K = 



AN: FOR J 5 1 I 
INPUT C<I ,J,K) 
CHR* < 4) " CLOSE 



"PREMIERE A 
INITIALISATION " f AN* : IF 
OR LEN (AN*) < > 4 THEN 



(AN*) 

OPEN ELEC : PRINT 
ELEC" : PRINT AN: PR 
1 TO AN: FOR J = 1 
TO Is PRINT C<I f J P K 
CHR* <4)"CL0S 



): NEXT K,J,I ; PRINT 
E ELEC" 

IF F THEN RETURN 

POKE 216,0: HOME r GOTO 520 



Nota ; En mode correction, il est possible de 
revenir sur Tannee precedence en tapant 
autant de fois (*) que c'est necessaire. 



Tout le monde 
le sait, pourtant... 

• PRINT USfNG 

LAPPLESOFT ignore le PRINT USING (c'est d'ail- 
leurs dommage !), mais il existe de nombreux 
moyens pour pailier cette lacune, en fonction 
des besoins, naturellement, EN VOICI UN : 

] 100 US = 6 

] 110 FORI = 1 TO 6: READ N 
] 120 IF NOT INT (N) THEN HTAB US : PRINT N ; 
GOTO 140 

] 130 HTAB US — LEN (STR$ (INT (N))) : PRINT N 
] 140 NEXT 

] 145 DATA 1234.23,243 J J89,5,56,10000.*„96 



23 
7 



1234 
243 
789 
5.56 
1 0000.9 
.76 



S'ii n'y a pas de 
vaieur inferieure 
a 1, la ligne 120 
devient 
superfine. 



GUV-HACHETTE 



• HTAB EN 80 COLONNES 

Avec ies cartes 80 COLONNES, i) ne faut pas utili- 
ser HTAB H et pas davantage POKE 36»H (qui, 
neanmoins, fonctionne), mais de preference un 
POKE 1403 ,H. 

• VALEUR ASCII APRES GET 

A la suite d p un GET (suivi d'une variable alphanu- 
meric e} vous pouvei remplacer la formule : 

] 100 GET AJ : A = ASC (A$) par 
] 100 GET A$: A = PEEK (49152) 

• & (LIST) avec l'AMPERSAND 

Quand on programme, on est souvent amene a 
taper LIST. Ce mot (deja court, reconnaissons-le) 
peut etre remplace parl'AMPERSAND : a. 

Comment? En ecrivant aux adresses 1013 — 
1015 ($3F5-$3F7) Ies parametres de la com- 
mande LIST ($D6A5) : 

— POKE 1014,165 : POKE 1015,214 (inutile d* 
modifier 1013, qui dolt etre ft 76). 

(Valeurs normales : 1014.88—1015,255) 
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Saisie 
avec 

TRI 

immediat 



Jusqu'a 50 mots 
(mais on peut aller 
au-dela) t il est bon 
d'effectuer le TRI 
au fur eta mesure 
de la saisie, comme le 
prouve ce court 
programme de 
demonstration. 



N0TA_i Corriger la liste 
en fin de saisie 
ferait evidemment ga- 
gner du temps. 



100 
110 
120 
130 
140 



150 
140 
170 
180 
190 
200 
210 
220 

230 

240 
250 
240 
270 

280 

290 
300 
310 

320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 

460 



470 
480 
490 



500 
510 



TEXT : HOME : DIM M$C50> 

FOR I - 1 TO 10 :T* = T* + " ": NEXT 

PRINT "SAISIE DE MOTS, TRIES AU FUR ET A MESURE"; 
PRINT T*: POKE 34,2: UTAB 20 i PRINT T$ : POKE 35,1? 
UTAB 22: HTAB t: CALL - 868: PRINT " <1> SAISIE 
DES MOTS <2> MOTS TRIES " \\ GET CHQIX*: PRINT B "i 
IF ASC <CH$) < 49 OR ASC <CH*) > 50 THEN 140 
IF CH$ = "1" THEN 220 
GOTO 440 

■ 
■ 

REM ************************* 
REM *** SAISIE OES MOTS *** 
REM ************************* 

■ 

UTAB 22: PRINT "50 MOTS MAXIMUM (PAS PLUS DE 16 LE 
TTRES" 

YTAB 3: HOME : HTAB 13: INVERSE : PRINT *FIN DE SA 
ISIE=/" : NORMAL 
S ss o i V - 5 

S = s"+ 1:V = V + IsH * 2: IF U = 19 THEN V = 6 
IF S > 9 THEN H = 1 
YTA8 U: HTAB H: CALL 



848: PRINT S;" -> 



THEN 



GOTO 140 
2> REFAIRE 
OR A > 50 THEN 



f ■ 



GET 
310 



VTAB V: HTAB 7: INPUT H ";M*<0)! IF M*(0) = 
270 

IF LEN (M$C0)> > 16 THEN 270 
IF M*(0> = V" THEN S = S - 1 
UTAB M : HTAB 23 1 PRINT ■ 1 > OK 
CH$:A = ASC <CH$) : IF A < 49 
IF A = 50 THEN 270 
UTAB V: HTAB 23: PRINT " 
FOR I = S TO 1 STEP - 1 

IF M*<0) > M$<1 - 1) THEN M*(I> = M*<0> : GOTO 370 
NMI> ■ M*<1 - 1)1 NEXT 
IF S < 50 THEN 250 
GOTO 140 

■ 

REM ************************* 
REM *** LISTE TRIEE *** 
REM ************************* 



VTAB 3 
SA = SA 
4:H = 



HOME :V=3;H=2:SA=0:H=1 



IF 
AB 
P 



+ 1 ay = U + 1 : IF U = 1? AND H = 1 THEN V = 
20 

V ■ 19 AND H = 20 THEN V = 4:H = \ 
Is CALL - 868: PRINT "APPUYER SUR 
;: GET CH$s PRINT : VTAB 3: HOME 
VTAB V: HTAB H: PRINT M*<SA): IF SA < S THEN 450 
IF SA < S THEN 450 

MTAB 22: HTAB 1: CALL - 848: PRINT "<1> REUOIR 
S MOTS <2> SAISIE <3> FIN ';: GET CHOIX$: PRINT " 

IF ASC <CH*> < 49 OR ASC <CH*> > 51 THEN 490 
ON YAL <CH$) GOTO 440,220,510 
TEXT : HOME 



UTAB 22: HT 
UNE TOUCHE SU 



LE 
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Boucles simples 
en langage machine 



IHIfilIIH|g HVIV| 



Ne vous laissez pas 
decourager par I'apparente 
cornplexife du langage 
machine... et essayez de 
cornprendre le fonctionnement 
de chacune de ces boucles. 



EXEMPLE DE BOUCLE (255 TO 1) 



BASIC 

10 HOME 

20 X = 255 

30 PRINT CHR$(7) 

40 X — X — T 

50 IF X 00 THEN 30 

60 END 



POURQUOI $F5 



Si Ion vouloit repartir de ladresse 
$30C, oji ecriroit, a porfir cte $30B : 
DO FF. 

En faisonf le compte a rebours, on 
trouve !□ vr oj fl valeur : FE, FD K 
FB ( FA r F9 r F8.F7, Fft, F5... qui com*- 
pond bfen a ladresse ^02.(CQFD) P 
Autre moyen ; On desfre reculer de 
10 cases. 

Lo sojsfracHon $F — $A (15 — M) 
donna bien 5. 





LANGAGE MACHINE 



0300 
0303 
0305 
0308 
0309 
030 B 



20 58 FC 
A2 FF 
20 DD FE 
CA 

DO FA 
60 



JSR $FC58 
LDX £$FF 
JSR $FBDD 
DEX 

BNE $0305 
RTS 



SENS 



(HOME) 

(BOUCLE) 

(Bit*) 

(MOINS 1) 

(NEXT) 

(BASIC) 



Noter I'effacement de J'ecran par appel de la routine $FC58 
puis les 255 ($FF) (bip) obtenus en appelant la routine $FBDd' 



1 

2 
3 
4 
5 
6 
7 

a 

9 

10 
1 1 

12 
13 
14 
15 



************************** 

* BOUCLE AVEC BNE * 
************************** 

* 

50 donnees sont stockees * 
de $2000 b $2031 * 



On les reecrfl 6 parti r de 
I'adresse $800 



************************** 

* 

ORG $300 

* 

LDX £$00 

16 BOUCLE LDA $2000, X 

17 ST A $0800, X 
T« INX 

19 CPX £$32 

20 BNE BOUCLE 

21 RTS 

22 END 



AVEC UN 

ASSEMBLEUR, 

TOUT 

DEVIEIMT 

PLUS CLAIR ! 



; L indox X est mis a ie>o 
; On charge la donnee de IWresse-origine 
! et on f'ecnt a la nouvelle adresse 
; Le regisf re X augments de 1 
: Si 6gajfite, indicated Z mis a 1 
Sf Z = 0, encore un tour 
sinon, c'est iermine. 
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Vous dites addition ? 



Tout d'abord, il faut savoir que, pour votre 6502, 
— $FF + $01 - $00, mais la retenuec = 1 

Utilisons les actresses $06 et $07 (llbres dans la 
Page de I'Apple) pour stocker le nombre d'ori- 
gine : $00FE (254, si vous preferez). Sa partie 
haute est placee en $07 et sa partie basse en $06 
(6 I'envers, cornme pour une adresse, c'est a- 
dire $ FE 00), 

Et maintenant, suivez simplement devolution de 
ce petit programme, lequel se contente d'ajou- 
ter 1 au contenu de la case-memoire $06, et 1 h 
celui de la case-rnemoire $07, s'i! y a retenue. 



03Q0 

0302 

0304 

0305 

0307 

0309 

030A 

030C 

030E 



A5 06 

A4 07 
18 

69 01 

90 03 
CS 

84 07 

85 06 
60 



LDA 

LDY 

CLC 

ADC 

BCC 

IN Y 

STY 

STA 

RTS 



$06 
$07 

£$01 
$030C 

$OJ 
$06 



6:FE 00 $fEOO,soit$OOFE(254) 

*300G " • *• G correspond au RUN du Basic 

*6«7 Pour off icher Is nouveau contenu 

0006 FF 00 On a maintenant $0QFF (255) 

*300G E* CD report ! 

*6.7 

0QQ6 — 00 01 y est ! $0100 (256), ce qui jus- 

tice les 2 octets, 

*30QG Attention ! quond les 2 valeurs 

seront & $FF, II foudra on 
trolsleme octet, 

0006 — 01 01 

Cela vous paraTt complique ? placez-vous 
devant votre clavier et votre ecran... et ne vous 
decouragez surtout pas ! 
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INSTRUCTIONS UTILISEES 
DANS CES DEUX PAGES 

ADC Le contenu de la memoir© speci- 
fiee (ou la donnee) est ajoute a 
I'accumuloteur A + la retenue 
eventuelle. c est mis a 1 si le 
resuitat depasse $FF. 

BCC Branchement si la retenue c = 

BEQ Branchement si z = 7(or P z = l si la 
derniere compare ison a donne 
legalite, ou si le resuitat etait 0). 

BNE Branchement si z = 
(le contraire de BEQ) 

CLC Annule fa retenue (met ca zero) 

CPX Comparaison avec le registre X 
(une donnee est comparee a X. 
L'indicateur zest mis a 1 s'il y a 
egalite. c {carry} est mis a 1 si X 
est plus grand que la donnee, ou 
la memoire indiquee). 

CAiPet CPY |ouent respectivement 
le meme role avec I'accumulateur 
A et le registre Y. 

DEX Le contenu du registre index X est 
diminue de 1 . 

DEY Fait de meme avec Y. 

INX On ajoute 1 au contenu de X. 

INC (case-memoire) et INY 

(registre Y) n'agtssent pas autre- 
ment que INX, 

JMP Sout sans retour a I'adresse 
indiquee. 

}SR Saut a I'adresse ou attend un 
sous-programme, puis retour a 
('Instruction suivante. 

LDA Copie dans I'accumulateur A le 
contenu de la memoire specifiee, 
ou une donnee (en mode im- 
mediat). 

LDX Meme fonction que LDA, mais 
pour le registre X, 

LDY Idem, pour le registre Y. 

RTS Retour de sous-programme (c'est 
!e$60 du iangage machine) 

STA Le contenu de I'accumulateur est 
transfer© dans la case-memoire 
indiquee, 

STXet STY font rigoureusement la 
meme chose, mais a parti r des 
registres X et Y. 
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Avec ProCODE, 

la programmation en assembleur 
devient reellement un plaisir ! 



LOGICIEL FRANCAIS 
utilisable sur 
APPLE lie et APPLE lie, 
sous ProDOS 















■ 


u 


u 


u 


u 


■ 










■ 








■ 


a 


■ 










■ 































ICHARD THIBERT, 17 oris, un surdoue assure- 
ment, est I'auteur de ProCODE, Tun des nou- 
veaux logiciels de VERSION SOFT* (dont on 
connait deja les excel lents EPISTOLE et VER- 
SION CALC). 

Qu'on se le dise : Richard n'a pas perdu son temps en 
nous livrant, en francos, et sur 80 colonnes, le premier 
assembleur-editeur pleine page, pour APPLE He et 
APPLE He 

Une precision : ProCODE m'avait seduit des la lecture de 
son annonce. Ma connaissance de ('anglais etant nan 
settlement insuffisante, mais al^atoire, j'aftendafs ce 
logiciel* Mais oui I 

Et je n'ai pas ete de^u, croyez-le bien. Comment 
pourrait-il en etre autrement, quand on constate avec 
quelle facilite il est possible de se promener a trovers un 
programme et d'en modifier, ajouter... ou supprimer 
une ligne ? 

De plus, ProCODE exploite toutes les ressources de 
I'APPLE, 64 K ou 128 K, selon la configuration (un menu 
special permet de figer celle-ci et de demarrer avec la 
bonne version). 

On pourrait certes lui reprocher de ne pas utiliser la 
souris, mais combien d'Apple lie disposent actuellement 
de cette interface ? Richard Thibert a certainement eu 



PREMIER CONTACT 



L 



raison. 



A lecture de la documentation 
est indispensable, Elle 
demande une petite heure d'at- 
tention soutenue, et une connais- 
sance elementaire du langage 
machine. 

Dans un premier temps, I'essentief 
est de savoir ou pouvoir, par la suite, 
trouver tel ou tel renseignement, au 
fur et a nrtesure de f'apprentissage. 

Personnellement, j'estrme qu'elle ne 
fourntt pas suffisamment d'exemples 
au neophyte, mais elle n'affirme pas 
la pretention d'initier au langage 
machine, alors.,. 

Par contre, si elle est succinate, elle 
se revefe d'une grand© clarte, tant 
dans so presentation agreable et 
aeree, que dans ses explications. . 

Les questions que Ton se pose n f y 
restent pas sans reponses. 

Bravo ! 



ProCODE 122 128K fC) VERSION SOFT Auteur Richard Thibert 



Source I 

S0001 - $0003 'sD00G 
Type TXT Type Bl 

- Precedent S 
* Suivant 

C Charger 

S Sauver 

J A]Duter 

D Oupliquer 

ISl Vider 



SD000- £D00O|S7800- S7800 
Type BIN Type BIN 

Sauver L Sauver 



F Editer 
A Assembler 
I Impnmer 



Comrnande 



General 

Date Sans date 

• 1 Prefix 

2 Date 

3 Catalogue 

4 Cat imp 

5 Source typ 

6 Systeme typ 

7 Suppression 

8 Creation 

9 En ligne 
K Quitter 



Un seul menu pour ProCODE, mais dont bien des auteurs devraient s inspirer. 
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A DECOUVRIR 



OUR le reste, e'est I'offoire du 
programmeur — en herbe. 
ou chevronn^ — que vous etes.., ou 
allez devenir, 

Decouvrir les macro-instructions et 
les instructions de chatnage, ainsi 
que tous les autres points forts de 
ProCODE constituera, pour vous, un 
jeu souvent passionnant, 

Un jeu qui, je n'en doute pas, va de 
nouveau stimuler votre intellects, et 
prolonger vos soirees tard dans la 
nuit 1 

G.H. 



* VERSION SOFT, 

19 rue Gannerorr 



75018 PARIS 
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Assembl age par ProCODE 














**********************************#***** 












***** COPIE 


D' ECRAN EN 


80 COLONNES ***** 










2 


**************************************** 










■>-> 

4 


IT 


ORG 


$300 












w 


* 
















_ 4 


ORG 


EQU 


$30 












7 


PAGE2 


EQU 


$C0 55 


jLecture SO col onnes 










3 


PAGE1 


EQU 


$C054 


;Lecture 40 colonnes 










9 


LI RE80 


EQU 


QRG+*I 4 


;Adresse 1 i gne kran ^poquee) 










10 


LIRE40 


EQU 


ORG+*I E 


;Reecr i te i c i 










1 l 


LGMEM 


EQU 


$6? 


;Zone des variables 










12 


ADRUAR 


EQU 


0RG+$3E 












13 


LECT 


EQU 


$400 


; Precni ^re 1 igne d' ecran 










1 4 


HEX A 


EQU 


0RG+$46 


jLongueur et adr . 1 i gne memor i *s£e 










15 


X 




-■ 


0300 i 


AD 


1 4 


03 


1 6 




LDA 


LIRE80 


;Ual eur poquee depu i s 1 e bas i c 


30 3 : 


8D 


1 E 


03 


1 7 




STA 


LIRE40 


;Recop ice let 


0306 ; 


AD 


1 5 


3 


1 8 




LDA 


LIRE80+ 1 


; Par t i e hau te 


0309 : 


8D 


1 p 


03 


1 9 




STA 


LI RE40+ 1 




030C: 


A2 


00 




20 




LDX 


£$00 


;M i se a zer o 


030E : 


AO 


00 




21 




LDY 


£$00 




031 i 


8D 


55 


CO 


22 


BOUCLE1 


STA 


PAGE2 


; Page 2 commut^e 


0313 : 


BD 


00 


04 


23 




LDA 


LECT,X 


S Let ture 90 colonnes 


0316s 


99 


00 


60 


24 




STA 


$6000 ,Y 


;Memo 1 igne provisoire 


31?; 


C8 






25 




I NY 




;P1 us 1 pour memo 


031A; 


8D 


54 


CO 


26 




STA 


PAGE1 


iPage 2 Commutes 


031 D s 


BD 


00 


04 


2 7 




LDA 


LECT,X 


j Lecture 40 col onnes 


0320 ! 


99 


00 


60 


28 




STA 


$6000 p Y 


;Memo 


0323 : 


C8 






29 




I NY 




jPlus 1 pour memo 


0324 i 


E8 






30 




1NX 




;Plus i pour la bouctel 


0325 : 


ED 


28 




31 




CPX 


£$28 


jA-t-on lu 2 feus 40 caracteres ? 


0327 : 


DO 


E7 




32 




BNE 


BOUCLE1 


; Encore un tour ! 


032? : 


A5 


69 




33 




LDA 


LOMEM 


;Pour adresse de la variable 


Q32B; 


1 8 






34 




CLC 




;Annulation de la retenue 


032C s 


69 


02 




35 




ADC 


£$02 


jPour obtenir 1 'adresse 


032E ; 


3D 


3E 


03 


36 




STA 


ADRUAR 


; Pre par at i on de la boucl e2 


0331 i 


A5 


6A 




37 




LDA 


LOMEM+1 


; Par tie hau te 


0333 s 


69 


00 




38 




ADC 


£$00 


;Plus retenue eventuelle 


335 1 


3D 


3F 


3 


39 




STA 


ADRVAR+ 1 


; Par t i e haute pour bouc 1 e2 


0338: 


A2 







40 




LDX 


£$00 


;M 1 se a zero 


033A: 


BD 


46 


03 


41 


BOUCLE2 


LDA 


HEXA,X 




033Di 


9D 


00 


10 


42 




STA 


$1 000 ,X 


jAdresse bi don (Voir ADRUAR) 


0340 i 


E8 






43 




INX 






0341 : 


E0 


03 




44 




CPX 


£$03 


;Retour au basic si 3 tours 


343: 


DO 


F5 




45 




BNE 


BOUCLE2 




0345: 


60 






46 




RTS 






0344 i 


50 





60 


47 




HEX 


500060 


j Longueur u ar i abl e e t adre sse 










48 











Tabl e des symbol es or dre a 1 phabe t i que 

-ADRVAR *033E -BOUCLEI . . .$0310 

-LECT $0400 -LIRE40. . . .$031E 

-ORG . . • . . . ,$0300 -PAGE! $C054 

tabl e des symbol es ordre numer i Que 



-B0UCLE2 . , .$033A -HEX A $0346 

-L1RE80 $0314 -LOMEM $0 069 

-PA6E2 $CQ55 



-L0MEM $006? -ORG $0 300 -BOUCLEI . . .$03* -LIRE80 $031 4 

-LIRE40 $031 E -BDUCLE2 . * .$033A -ADRVAR $Q33E -HEXA $0346 

-LECT $0400 -PAGE1 $C054 -PAGE2 . . . , ,$C055 
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Que va-t-il 
se passer ? 



PETIT ESSAI 

D UNE INITIATION 

AU FQNCTIONNEMENT 

DE L'APPLE He. 



En g£n&ral, interesser les [eunes a la micro™ 
informatique ne presente aucune difficult©.., si 
I'initiation est facultative. II en va autrement lors- 
que les neophytes ne se sentent pas motives, ce 
qui est parfois le cas dans les etablissemenls 
d'enseignement. 

On peut alors teur presenter les choses autre- 
ment, un peu comme le fait ce programme, iequeJ 
n'evoque que 4 CALL remarquables de I'APPLE, 
mais pas forcement connus de la rnajorite. 



10 TEXT : PRINT CHR* (21): HOME 

15 VITESSE = 10: vTAB 22: HTAB 1: PRINT "VITESSE D'AFF 
ICHA6E <l/9) ";: GET UI$: IF ASC <UI*) > 48 AND 
ASC (UH) < 50 THEN UI = K)Al 
20 PRINT : HOME : HTAB 8: INVERSE : PRINT " QUE UA-T- 
IL SE PASSER ? ": NORMAL : FOR I = 1 TO 1G:TR* = TR 
* + J ' ": NEXT : WTAB 2: PRINT TR*: POKE 34,2 

25 : 

30 REM ft****************************** 
35 REM ** PREMIERE PAGE ** 

40 REM ***##******#*###*♦**##**##*#*# 
45 : 

50 INVERSE ; PRINT "1": NORMAL 
55 G0SUB 360 

60 PRINT "1100 A* = " + CHRf (34) + P, A N + CHR* (34) 
65 PRINT "§105 HTAB 12" 

70 PRINT H §110 FOR 1=1 TO 123 PRINT A*;: CAL 

L - 922: CALL - 1008: NEXT " 
75 GOSUB 355: vTAB 15: PRINT TR$: OOSUB 330 
80 A* = "A" s HOME 
85 HTAB 12s UTAB 4 

90 FOR I = 1 TO 12: PRINT A*;: CALL - 922: CALL - 1 

008: NEXT 
95 PRINT ; PRINT TR* 
100 PRINT : GOSUB 335: POKE 34,2: HOME ; PRINT : PRINT 

105 PRINT "LA LIGNE 110 COMPORTE DEUX INSTRUCTIONS INT 
ERESSANTES : 

- CALL-922 ft - CALL-100 
110 GOSUB 36Q 

115 PRINT J, §110 FOR I = 1 TO 12: PRINT A*;: C ALL 

- 922: CALL - 1008 : NEXT U 

GUY-HACHETTE 



^ La variation de la 
™ Vitesse d'afftchage est 
obtenue par le nombre de 
X = PEEK (49200) emis 
entre chaque caractere. 



a On aurait pu rempla- 
▼ cer les CHR$ (34) par 
une variable GUS - CHR$ 
(34). 



a CALL-922 posittonne 
™ le curseur sur la ligne 
suivante, maSs sur la 
meme colonne. 
CALL-1008 ]e fait reculer 
dune position. 



^ Attention aux espaces 3 
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Utilisation du 
inverse pour 
('attention.,. 



mode 
attirer 



It n'empeche que le neo- ^ 
phyte va se poser une ™ 
question elementaire ; 
■ Mais pourquoi reculer... 
puisque CALL-922 permet 
de rester sur la meme co- 
lonne 

Reponse ; Apres 1'affichage 
d H un caractere, le curseur 
avance bien d'une case... 
or, [| went d'afficher un 
«A*.„ et se trouve done une 
position plus loin... CQFD, 



Avouez qu'il est facile ^ 
d'afficher une partie de ™ 
la memoire I 



Mais il est peut-etre ^ 
sage de rappeler com- ™ 
ment poker une adresse ? 



120 



125 
130 



135 
140 

145 
150 

J 55 
140 
145 
170 
175 

180 

185 
190 

195 

200 
205 



210 
2!5 



220 
225 
230 
235 
240 
245 



25Q 



255 
260 



PRINT :T* = 11 La premiere": GOSUB 350: VTAB 7: HTA 
B 13: IMMERSE :T* - " CALL-922* 1 : GOSUB 350: NORMAL : 

''TAB 13: HTAB 13:T* = " fait passer le curseura la 

ligne suivante sans thangementde colonne (htab + 1 
> . " : GOSUB 350 
PRINT : PRINT 
Tt = ■ La seconde": GOSUB 350: UTAB 7: HTAB 13: PRI 
NT "CALL-922": UTAB 8: HTAB 13:T$ = "CALL-1022": IN 
WIRSE s GOSUB 350: NORMAL i MTAB 17: HTAB 12:T* = " 

d£p 1 ace le curseur versl a gauche d'une division.,. 

d'oa lerfsul tat 

" : GOSUB 355: VTAB 20 
JTAB I: HTAB 1 ; PRINT 



GOSUB 350: PRINT 
FOR I = 13 TO 19 
: GOSUB 340 
HOME : PRINT 



PRINT TR$ 
" : NEXT 



REM 
REM 
REM 



it***************************** 
** DEUXIEME PAGE #* 

****************************** 



PRINT : GOSUB 340: C 



INVERSE : PRINT "2": NORMAL 
ALL - 998: CALL - 998 
PRINT "ET MAINTENANT ? 

,J : PRINT 

PRINT "§100 HOME " 

PRINT "§110 POKE 40,0: POKE 41,8: POKE 42 

! POKE 63,8: CALL 64947" 

GOSUB 355: UTAB 11: PRINT TR$: GOSUB 330 



POKE 60,0: POKE 61 ,8 
44947: PRINT : PRINT 



GOSUB 355 

VTAB 12s CALL - 958: 
2,55: POKE 43,8: CALL 
UB 335 

UTAB 12: CALL - 958: PRINT : PRINT 
T$ = "On a poke en 40-61 <*3C-*3D) et en 
*3F) 1 'adresse de depart du DUMP enHEXA 
sirait ef-fectuer. Un CALL 64947 (routine 

■'Apple) a en-suite fait le reste de la besogne 
PRINT : GOSUB 350s PRINT 

* 
■ 

REM ****************************** 
REM *# POKER UNE ADRESSE HEX A ? ** 
REM ****************************** 



,55 



POKE 6 
TR*: G0S 



62-43<*3E- 
que 1 * on de 
de 1 



GOSUB 340: VTAB 12: CALL 
poker une adresse HEXA en 

OR I = 1 TO 10: PRINT " " ; : 

" : INVERSE : GOSUB 350: NORMAL 
PRINT * - $0800 = %m <8 OECI) 



(33 DEC) et *FF <ou 
PRINT : GOSUB 355 



255) 



958: PRINT :T* = "Pour 
DECIMAL; n \ GOSUB 350; F 
NEXT :T$ = " EXEMPLES 
: PRINT : PRINT 
et $00 <0 DECI> 

- *21FF = $21 



(Suite page 56) 
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265 
270 
275 
280 
285 



2?0 
295 
300 
305 
310 
315 
320 
325 
330 

335 

340 

345 

350 



355 
360 



REM ****************************** 
REM ♦# LE CHOIX ** 

REM ****************************** 

UTAB 22: PRINT "<1> REVO I R LE TOUT <2> MENU DE D1S 
QUETTE"! GOSUB 345;R = PEEK < - 16384): IF R = 4? 
THEN HOME : PRINT : GOTO 50 

IF R = 50 THEN PRINT : PRINT CHR$ (4) "RUN MENU" 
IF R = 27 THEN TEXT : HOME : END 
GOTO 285 

■ 

REM ****************** ************ 

REM ** MINI SOUS-PROGRAMMES ** 
REM ****************************** 

VTAS 22: PRINT "ENFONCEZ UNE TOUCHE POUR LA REPONS 
E BMP" : GOTO 345 

UTAB 22: PRINT " ET UNE AUTRE TOUCHE POUR TOUT SAVO 
IR,,,": GOTO 345 

VTAB 22: PRINT IJ UNE TOUCHE POUR LA SUITE 

CALL - 199: POKE - 16368,0: WAIT - 16384,128,12 
7! POKE - 16368,0: RETURN 

FOR I = 1 TO LEN <T*> s PRINT MID* <T4 , 1 , 1 ) f : FOR 
J = 1 TO VI :X - PEEK (49200): NEXT : NEXT : RETUR 

N 

TEXT : POKE 34,2: RETURN 

POKE 32,5: POKE 33,35: PRINT : RETURN 



Suite de 
Ja page 
precedence, 




Que va-t-il 
se passer ? 

a, Cette partie du pro- 
^ gramme na se justifie 
vrafment que si I on doit 
fairs appel a ces routines 
a plusieurs reprises. 
Ce sera le cas quand vous 
aurez triple... mais oui I... 
la longueur de cette rnon- 
ture de base. 
Bonne programmation I 



Si vous possedez un Apple lie ou 
un Apple //e... offrez-vous notre 
disquette n°1 




Tous les programmes de 

TREMPL1N 
MICRO 



seront chez vous dans quelques jours 



UTILISEZ OBLIGATOIREAAENT LE BULLETIN 
DE COMMANDE DE LA PAGE 66 (vous pou- 
vez le recopier ou le photocopier, bien sur). 



GUY-HACHETTE 
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Un jeu graphique : 

Logic-grilles 



j 



E vous laisse le soin de decou- 
vrlr a quelle logique (mais 
oui, elle existe... vous allez la ren- 
contrer !) obeit ce petit jeu graphi- 
que. 

Notez qu T il parait parfois dans eer* 
taines revues de la collection 
«guy-hachette». 

La version bask est relativement 
lente (au moms 30 secondes.,. sui- 
vant les aleas), mais une optimisa- 
tion est possible. 

La disquette d'accompagnement 
fournit une version compilee beau- 
coup plus rapide. 




Quelle grille du haut peut logiquement 
occuper l 1 emplacement uide ? 



Si vous disposez d une imprimante graphique, voilo ce 
que vous obtiendrez.,* 



10 
15 

20 

25 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 



90 

95 

100 
105 
110 
115 
120 



Pour obtenjf G 
+ PEEK (106)*! 
rtsultat (avant t 
gramme). 



tape; PEEK {105) 
56 et ajoute* 1 au 



le lancer votre pro- 



Df 



L0MEM: 24577 
G = 5300 
TEXT : PRINT CHR$ (21) s HOME 
= CHRf (13) + CHR$ <4) 
DIM C<4,12),B<4,12> 
GQSUB 560 

HGR : HGR2 : HC0L0R= 3 
GDSUB 335 

i 
■ 

REM ************************* 
REM TRACE DES GRILLES 

REM ************************* 



: 

POKE 230 p 32: 
X = 0:D = B7 
FOR I = X TO 
HPL0T X, I TO 
117,1; HPL0T 

192, I TO 
HPL0T f E 



POKE: 



16299,0 



53 P I: 
128,1 
245,1 
TO 53,Es 
117, E: HPLOT 128,E 
IF E < 88 OR E 
192, E TO 245, E 
NEXT 



72 STEP 6sE - D + I 
HPLOT 64, I TO 



TO 181 J : HPLOT 



HPLOT 64 f E 
TO 181 ,E 



TO 



> 153 THEN HPLOT 



Y = 72:F - Y + D:E = D 
FOR I = X TO 54 STEP 6 
HPLOT I,X TO I,Y: HPLOT I + 64,X 



TO I + 64 ,Y: HPLOT I + 128, X TO I 
+ 128,Y: HPLOT 1 * 192, X TO I + 19 
2,Y 

125 HPLOT I t E TO I,Fi HPLOT I + 64, E 
TO I + 64, F: HPLOT I + 128, E TO I 
+ 128, Ft 3 F I > AND I < 53 THEN 
135 

130 HPLOT I + 192, E TO I + l?2 f F 
135 NEXT iZ = 74 

140 DRAW 18 AT 0,2: DRAW 19 AT 63, Z: 

DRAW 20 AT 128, Z: DRAW 21 AT 192, 1 

145 : 

150 REM ************************* 
155 REM OASES NOIRES 
160 REM ************************* 
165 : 

170 FOR I = 1 TO 12s FOR J = 1 TO 3s 
FOR K - 1 TO 9:N = C<J,I>: IF N = 
THEN 180 

175 N = <N * 6) - 5;N = N + <64 * J) - 
64 :M = 81 + <I * 6): DRAW 95 AT N 
,M 

180 NEXT K, J, I 

185 FOR I = 1 TO 12: FOR J - 1 TO 4: 
FOR K = 1 TO 9:N - B<J,I>: IF N = 
THEN 195 

190 N - <N * 6) - 5sN = N + <64 * J) 

(Suite page 59) 
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FONTE CARAC A$6000,L$633 



Si vous tapez ceite longue suite de nombres hexoddtimaux, failes une sau- 
vegarde toutes les 50 lignes... par exemple, et sous des noms different* 



6000- 44 01 DO 00 09 00 EO 00 
6008- E3 00 EF 00 F8 DO 03 01 
4010- 1A 01 20 01 23 01 30 01 
4018- 41 01 4C 01 53 01 5C 01 
4020- 62 01 4D 01 7F 01 8? 01 

6029- 98 01 A7 01 B4 01 C4 01 

6030- D7 01 El 01 F2 01 02 02 
6038- 08 02 OF 02 23 02 2E 02 
6040- 42 02 4D 02 5E 02 70 02 
■5048- Bl 02 90 02 AO 02 AE 02 
4050- BC 02 CE 02 E0 02 EC 02 
405B- FA 02 OA 03 12 03 2? 03 
4040- 36 03 49 03 5? 03 49 03 
4048- 79 03 8A 03 94 03 A5 03 
6070- B5 03 CA 03 DA 03 E7 03 
6078- F3 03 04 04 10 04 20 04 
6080- 31 04 3C 04 42 04 51 04 
4008- 60 04 48 04 7C 04 SB 04 
4090- 96 04 A7 04 B5 04 CI 04 
4098- CC 04 D9 04 E2 04 F2 04 
60A0- 00 05 OE 05 ID 05 2C 05 
40AB- 36 05 45 05 50 05 5E 05 
60B0- 4B 05 7C 05 89 05 PA 05 
40B6- A7 05 BB 05 C9 05 DA 05 
40 CO- EE 05 06 04 04 06 06 06 
60C8- 0B 06 73 01 00 00 00 00 
60D0- 09 B9 92 92 00 00 92 OA 
6DD8- 00 34 34 14 4E 00 00 00 
60E0- OD FE 4E 94 52 01 00 3E 
40EB- 36 34 36 4E 00 00 IF 49 
40F0- 49 34 34 34 4E 00 00 4E 
4DF8- 6D 11 DF 77 09 IE 17 4D 
6100- 3A DF 4E 29 4E 00 DO 20 
4108- 09 8D 3F BF OD 8D 3F 3F 
4110- 4E OD 3E 3F 77 71 49 00 
4118- 00 36 34 96 52 01 00 00 
6120- F5 36 36 2E 4E DO 00 00 
4128- 35 34 36 17 75 01 00 00 
4130- 09 8D IF IF OE 2D IE 17 
4138- 2D 15 IF IF 4E 4E 09 00 
4140- FF 89 6E 3A 3F 77 31 54 
614B- 49 00 00 92 92 8A F6 4D 
4150- 00 00 37 52 89 3F 87 52 
4158- 49 01 00 00 92 92 4E 00 
4140- 00 00 49 11 17 IE 17 IE 
6148- 56 49 09 00 35 29 AD DF 
417D- 33 4D 31 DF 33 4D 31 DF 
417B- 33 2D 2D 4E 00 00 4D 2D 
4180- 36 36 FE 2A 2D 75 01 00 
4188- 29 29 AD DF 73 49 IE 17 
4190- IE 17 2D 2D 4E 00 GO 01 
4198- 29 AD DF 73 49 IE 77 31 
41A0- DF 73 2D 4E 01 00 3E 4D 
61AB- 31 DF 33 4D 31 3F 3F 4E 
61B0- 09 34 4E 00 00 2D 20 2D 
41B8- DE 18 4E 11 3F 77 49 FE 
41C0- 9B 2D 75 09 00 00 29 2D 
41CB- DE IB 4E 11 3f 37 4D 31 



41D0- OF 73 2D 4E 01 00 00 2D 
41DB- 2D 36 IE 17 34 4E 09 00 
41E0- 2D 29 AD DF 33 4D Fl 3F 
41E8- 17 4D 31 DF 73 2D 4E 01 
41 F0- 00 00 29 AD DF 33 4D 31 
41 FB- 3F 77 09 FE 9B 2D 75 09 
4200- 00 00 12 16 96 0? 00 3E 
4208- 52 82 F6 4D 00 00 B7 49 
4210- 3E 17 2D 2D 35 3F 3F 3F 
4218- OE 2D 2D F5 IB 77 4E 49 
6220- 00 00 09 12 2D 2D DE 9B 
4226- 2D 2D 96 09 00 2A 49 15 
4230- FF 13 2D 2D AD 3F 3F 3F 
4238- 2E 2D 2D IE 37 4E 49 00 
4240- 00 09 29 AD DF 73 09 IE 
6246- 84 4E 09 00 09 09 15 ?F 
4250- 2D 35 DF 33 4D 31 FF 33 
6258- 2D OD 4E 00 00 00 29 2D 
4240- FE IB 6E 09 FE IB 2E 2D 
4248- 35 DF 33 4D 71 01 00 09 
4270- 2D 15 DF 4E 31 3F 37 4D 
6278- 31 DF 33 2D 2D 4E 00 00 
62B0- 4A 29 AD DF 33 34 4D 11 
4288- DF 33 2D 2D 4E 00 00 2D 
4290- 2D AD DF 4E 31 DF 4E 31 
429B- DF 17 2D 2D 4E 00 00 2D 
42A0- 2D F5 IB 4E 11 3F 37 36 
62A8- 2D 2D 4E 00 00 00 2D 2D 
42B0- DE IB 4E 11 3F 37 34 4E 
42B8- 49 01 00 49 29 2D DE IB 
42C0- 6E 89 FF 33 4D 31 DF 33 
62C8- 2D 2D 4E 00 00 33 4D 3! 
42D0- DF 33 4D 31 3F 3F 4E 09 
42D8- FE IB 4E 09 4E 00 00 09 
62E0- 2D 2D DE 36 36 9F 2D 2D 
62EB- 4E 00 00 31 09 2D IE 34 
62F0- DF 4A 31 DF 2E 2D 4E 01 
62F8- 00 DF 4D 31 DF 33 AD IE 
4300- 3F 6E A9 f)! : 33 40 71 01 
6308- 00 36 36 34 34 2D 75 01 
6310- 00 00 29 OD AD DF DF 6E 
631 B- 69 31 DF DF 6E 69 31 DF 
6320- DF 4E 69 71 01 00 00 20 
4328- AD DF 33 4D 31 DF 33 4D 
4330- 31 DF 33 4D 71 01 00 00 
6338- 29 AD DF 33 4D 31 DF 33 
4340- 40 31 DF 33 2D 75 09 00 
634B- 00 2D AD DF 33 4D 31 3F 
4350- 3F 36 74 49 09 00 00 29 
6358- AD DF 33 4D 31 DF 33 OD 
4340- OD IE DF 2E 6D 4E OD 00 
6368- 09 2D 15 DF 6E 31 3F 37 
4370- 4D 31 DF 33 4D 71 01 00 
4378- 00 29 2D DE IB 6E II 3F 
4380- 4E 31 DF 13 2D 2D 4E 00 
4388- 00 00 2D 2D DE 36 36 76 
6390- 49 00 00 4D 4D 31 DF 33 
6398- 4D 31 DF 33 4D 31 DF 33 



E 


ii 


1 


1 








[ 


] 


* 


+ 


9 






/ 


a 


l 


2 


3 


4 




6 


? 


8 


9 


; 


# 




— 




? 


d 


i-l 


B 


L 


D 


E 


F 


Li 


H 


I 


J 


K 


I. 


hi 
1 1 1 


1 1 


u 


r 


u 


n 

n 


a 


T 


1 1 
u 


1 1 


1 1 1 

U.J 


X 


V 


2 


1 


C 


e 


ft 






o 


b 


c 


d 


e 


f 




h 


i 


i 


h 


1 


m 


n 





P 


q 


r 




t 


u 




w 


X 


y 


Z 


i 


u 


i 


I 


■ 











63A0- 


2D 


75 


07 


00 


00 


4D 


31 


DF 


43A8- 


33 


4D 


31 


DF 


33 


4D 


Fl 


IF 


63B0- 


01 


4E 


09 


00 


49 


40 


49 


FE 


43B8- 


FB 


33 


4D 


41) 


FE 


FB 


33 


4D 


43C0- 


<?D 


IE 


IF 


IF 


OE 


OD 


4E 


09 


63C8- 


fin 


00 


4D 


31 


DF 


73 


0!) 


IE 


63D0- 


17 


OD 


15 


DF 


33 


4D 


71 


01 


63D8- 


00 


4A 


40 


31 


DF 


33 


40 


Fl 


43E0- 


3F 


OE 


34 


4E 


09 


00 


00 


20 


43EB- 


2D 


BE 


IE 


17 


IE 


2E 


2D 


75 


43F0- 


01 


mi 


[i Li 


D 9 


15 


IF 


2E 


AD 


63F8- 


DF 


33 


2D 


2D 


DE 


18 


2E 


2D 


4400- 


75 


01 


00 


00 


52 


20 


F5 


DB 


4408- 


34 


2E 


2D 


F5 


6B 


09 


00 


69 


4410- 


69 


DE 


2A 


AD 


DF 


33 


2D 


2D 


6418- 


DE 


IB 


2E 


2D 


75 


Ci 1 


00 


00 


4420- 


09 


\5 


IF 


2G 


2D 


FE 


IB 


6E 


6428- 


09 


3E 


DF 


2E 


4D 


4F, 


00 


on 


6430- 


on 


92 


92 


49 


11 


3F 


3F 


4D 


6438- 


49 


00 


00 


09 


76 


96 


:>2 


01 


4440- 


00 


00 


52 


ZD 


35 


DF 


33 


4D 


444B- 


31 


FF 


33 


2D 


OD 


4E 


00 


00 
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Notez que tout eel a 
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ladisquetten°1 de 

TREMPLIN 
MICRO 




GUY-HACHETTE 



53 



i?5 

200 

205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 



26Q 



245 
270 
275 

280 

285 
290 

295 



300 



- 64 :M = ( I * 6) - 6i DRAW 95 A 
T M,M 
NEXT K,J,I 

■ 

■ 

REM ************************* 

REM PAGE 1 VISIBLE 

REM ************************* 

POKE - 14300,0 

■ 

REM ************************* 

REM TEXTE ET REPONSE 

REM ************************* 

m 
* 

T$ = "Quelle grille du haut peut 
1 09 i quemen toccuper 1 'entp! acemen 
t vide ?" 

T - U3:S = - 7: FOR I = 1 TO 
LEN (T*):S = S + 7;A = ASC < MI 
» (Tf fl.D) I IF A - 32 THEN S = 



2s GOTO 285 
= 105 THEN S = S - 1 
= 39 THEN T = 173:S = 
A - 31 AT SJ: IF A = 
S = S - 2 

» 77 OR A = 87 OR A ■ 
= 119 THEN S = S + 2 





108 
109 



S - 
IF A 
IF I 
DRAW 
THEN 
IF A 
OR A 
NEXT 

PRINT GET H$:0 = ASC <H*) 
: IF O < 49 OR O > 52 THEN 290 
GOSUB 525: VTA 8 22: HTAB 7 
ERSE ! IF O - 48 = H THEN 
* BRAVO! VOUS AVEZ GAGNE ! 
OTO 305 

PRINT H HELAS! VOUS AVEZ PERDU ! 



INV 
PRINT 
*: G 



305 FOR 1 = 1 TO 50: FOR J = 1 TO 8 
:X = PEEK (49200): NEXT :X = X 
* X; NEXT : GOTO 445 

310 : 

315 REM ************************* 
320 REM GRILLES ALEATOI RES ***** 
325 REM ************************* 
330 : 

335 FOR J = 1 TO 4 STEP 2: FOR I = 
1 TO 12 

340 P = 1 + INT ( RND (1) * 9)s IF 

I = 1 THEN 350 
345 IF P = C<J,I - 1> THEN 340 
350 C<J f I) = P:C<J + 1,13 - I) = 10 

- P 

355 NEXT I, J 

340 H = 1 + INT < RND <t> * 4): IF 
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Quelle grille du haut pent logiquement 
occuper 1' emplacement vide ? 



345 



370 



H - 3 THEN 360 
FOR J = 1 TO 4 
sL = 0: 



REM BONNE GRILLE 
FOR I = 1 TO 12 
IF J = <H) THEN B<J,I) = 
C<4,I) : GOTO 400 
IF 1 + INT < RND ( 1 > * 4) ( > 
1 THEN 390: REM MODI F DE CERTAI 



NES LIGNES 
375 B<J,I> = 1 + 
: IF 8<J,I> 



INT < RND CI) * 9) 
< > C<4,I> AND BCJ, 
1) = 1 THEN L = 1 : GOTO 395 
IF B(J,I) < > C(4 t I) AND B(J,I 

> < > B< J, I - 1 ) THEN L = 1 : GO 
TO 395 
GOTO 375 

390 B<J,I) = C< 4 , 1 ) 

IF I = 12 AND L = THEN 375 
NEXT I , J: IF INT < RND C t > * 2 

> < > 1 THEN 410 
FOR I = t TO 12:7 = C<2 f I) :C(2 t 
I) ■ C(3 P I) ;C<3,I> = 2: NEXT 
RETURN 



380 



385 



395 
400 

405 



410 
415 
420 
425 
430 
435 
440 
445 



450 



REM ********** 
REM MINIMENU 
REM ********** 

GOSUB 525 

HOME : VTAB 22: HTAB 4: INVERSE 
: PRINT "!";: NORMAL : PRINT " 
" ; : INVERSE : PRINT *2*\ 
: PRINT " AUTRE JEU " j : 
; PRINT "3" ; : NORMAL : 
FIN" 
HTAB 



EDITION 
: NORMAL 

INVERSE 
PRINT ■ 
MTAB 22: 

GET m*. 

L <hft) > 



32: PRINT 
IF VAL <H$) < 
3 THEN 450 



U ll „ , 

t ■ 
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6450- 


34 36 2D AD 


DF 


33 


4D 


31 


4*158- 


DF 33 2D 2D 


4E 


DO 


00 


52 




52 2D F5 D8 


3d 


2E 


2D 


75 


4468- 


0J 00 4? 49 


31 


OF 


2A 


2D 


4470- 


FE 18 4E 09 


FE 


IB 


2E 


2D 


4478- 


75 01 00 2D 


52 


2D 


15 


DF 


4480- 


a ?d r>r 

J J d_ U 4^/ L/C 


IB 


2E 


20 


75 


44G8- 


01 CO DF 09 


F5 


33 


80 


3F 


4490- 


77 34 4E 0? 


u D 


1 J 


52 


2D 


4498- 


35 OF 33 4D 


31 


3F 


77 


09 


44A0- 


3E 3F 4F 49 


1 


DO 


GO 


34 


44AS- 


2D AD DF 33 


40 


31 


DF 


33 


64B0- 


40 71 01 00 


oa 


09 


0E 


2A 


44BB- 


35 34 9F 20 


2D 




00 


00 


44C0- 


F4 09 DE 2A 


35 


36 


34 


3F 


44C8- 


4D 01 00 4D 


34 


40 


IE 


IF 


64D0- 


2E 2D FE 33 


4D 


4E 


00 


00 



44D8- 
44EG- 
44E8- 
64F0- 
64F8- 
4500- 
4508- 
4510- 
651B- 
6520- 
4528- 
6530- 
6538- 
4540- 
4548- 
4550- 

4560- 
4568- 
6570- 
6578- 
6580- 



35 35 
00 35 
69 31 
00 00 
31 DF 
52 2D 
33 2D 
AD DF 
40 4? 
DF 33 
6E 00 

36 76 
F5 OB 
2D 4E 
F5 33 
12 4D 
73 4D 
31 DF 
0? 00 
33 4D 
4E 09 
OE 15 



34 34 
52 6D 
DF DF 
12 2D 
33 4D 
15 DF 
75 09 
33 4D 
00 00 
4D 31 
00 12 
49 01 
2E 2D 
00 00 
36 2D 
31 DF 
4E 00 
33 40 

35 12 
4D IE 
00 00 
IF J7 



17 2D 
AO OF 
6E 6? 
AD DF 
71 01 
33 40 
00 00 
31 3F 
52 52 
3F 3F 
12 DD 
00 00 
35 DF 
00 31 
4E DO 
33 4D 
00 00 
Fl IF 
40 49 
IF IF 
12 4D 
4D 71 



4E 00 
DF 6E 
7J 01 
33 4D 
00 2D 

31 DF 

32 2D 
3F 36 
2D 35 
4E 09 
F5 3B 
52 2D 
13 20 
17 2D 

00 12 
31 FF 
12 40 
0E 4E 
FE FB 
0E 0D 
Fl IF 

01 00 



4588- 

6590- 

6598- 

65A0- 

45A8- 

45BC- 

45B8- 

65C0- 

45C6- 

45D0- 

45D8- 

65E0 ■ 

65E8- 

45F0- 

65FB- 

4400- 

6400- 

6410- 

4418- 

6620- 

4428- 

4430- 



20 12 
3F 77 
00 00 
17 20 
IE 37 
DE IB 
09 15 
09 3E 
20 09 
2D 20 
00 00 
35 3F 
2E 2D 
35 3F 
3F 37 
2D 2D 
40 43 
00 00 
3F 2E 
4E 0? 
60 09 
2D 0D 



40 31 DF 
09 3E 3F 
12 20 2D 
20 4E 00 
2D 15 DF 
2E 2D 75 
OF 4A 09 
DF OE 4D 
15 9F 20 
DE IB 2E 
49 11 3F 
3F 2E 2D 
75 01 00 
3F 37 20 
2D 2D 35 
75 01 00 
00 19 00 
00 00 00 
2D 00 AD 
2D 35 3F 
2D 3E 3F 
20 



33 40 31 
4F 49 01 
IE 17 IE 

00 01 49 
33 20 20 

01 00 00 
FE IB 4E 
4F. 00 00 
15 DF 33 
2D 75 01 
3F 2E 2D 
35 3F 3F 
09 2D 2D 
2D 35 3F 
3F 3F 37 
40 40 CO 
00 00 00 
00 DB IB 
3F JF 3F 
DF DB 2A 
IF 3F 77 



LOGIC-GRILLES I <fin> 

455 GOSUB 530 

460 ON VAL (H$) GOTO 505,445,475 
465 GOSUB 525: HOME : VTAB 22: PRIN 
T "CONFIRMER EFFACEMENT DONNEES 
PAf? <0> " ;j GET Ht: IF H* < > 
"0" THEN 440 
470 FOR I = 1 TO 4: FOR J = I TO 12 
:C<I,J) = 0:BCI,J) = 0:Q = 0: NE 
XT J, I: PRINT CHR$ (32): GOTO 3 
5 

475 TEXT : HOME : PRINT ! PRINT D*" 
RUN MENU" 

480 : 

485 REM a************************ 
490 REM EDITION ***** 
495 REM ************************* 
500 : 

505 PR£ i 

510 PRINT CHR$ <?)"GD": PRINT ; PR 



515 
520 
525 



530 

535 
540 
545 
550 
555 
560 
565 
570 

575 
500 



INT ; PRINT : PRINT ! PRINT " 

GRILLE-REPONSE = "Hi PRINT C 
HR* (12): PR£ 
GOTO 440 

■ 

■ 

POKE 49236,0: POKE 49235,0: POK 
E 49239,0: POKE 49232,0: HOME : 
RETURN 

POKE 49236,0: POKE 49234,0: POK 
E 49239,0: POKE 49232,0: RETURN 

* 

i 

REM ************************* 
REM FONTE L$633 ***** 
REM ************************* 

■ 

i 

ROT= Oj SCALE* 1 

PRINT D$ "BLOAD CARAC ,A"G 

POKE 232, G - INT <G / 256) * 2 

56 

POKE 233, INT <G / 256) 

RETURN ■ 



RIEN + PAS 
GRAND-CHOSB... 

ETI1 LEURFAUT 
UN ORQMATEUR. 




La grande timidite des hommes 

(d'un certain age) devant I'informatique personnels 

Avei-vous remarque" I'etrange comportement des hommes manes, visitant (en 
compagnie de leur Spouse) un salon consocre d la micro-informatique ? lis 
regardent beaucoup, Eooutent davontage encore, mais se gardent bien de 
poser des questions. 

Heureusement, les dames connaissent les secrets desirs de leurs cbers epoux, 
et interrogent vendeurs ou demonstrateurs a leur place. 
Si elles sovaient quelles longues soirees de solitude les attendent, elles se gar- 
deraient b<en d'tntervenir.. . a moins quelles n'y prennent gout elles aussi ! 



GUY-HACHCTTE 



60 



De bons livres, 
et en francais ! 



Pendant plusleurs annees, les EDITIONS DU P,SJ furent les 
seules a vroiment sinteresser a Tinformatrque personnels en 
general,., et aux differentes versions de TApple en partial- 
lier, Rares sent ceux qui, mordus de la pomme, n'ont pas inte- 
rieurement r^mercie les Nicole Breaud-Pouliquen et autres 
Jacques Boisgontrer ou Frederic Levy pour leur excellente 
documentation... en frangais. 

Aujourd'hui, les grands editeurs entourent leur collection 
MICRO de soins atfentifs, Les publications sont nombreuses, 
et il arrive meme que la machine n J existe deja plus quand 
parait son mode d'emploi. 

Avec Apple — valeur sure, comme Ton sait — pas de 
probleme ! 

L EDITION ET IE LANGAGE MACHINE 

Aflon propos n'etait pas de vous parler des ouvrages geneVaux, 
mais seulement de ceux capables,a mes yeux du moins, de 
vous inciter a programmer en Jangage machine. 



On ne compte plus les livres traitant de i'Apple. 
certains ne sont que | a traduction d'ouvrages 
amencains. D'autres ont ete concus en fronts, 
par des auteurs plus ou moins prolifiques... et 
parfois^helas ! ^ prolixes. 



Hs ne sont pas legion. Le sujet est d'un abord difficile. II y a 
des n S que s , Aux Editions du P.SJ, pas de probleme. on a 
couru ie risque depuis longtemps. On y o rhabhude... et on 
aime probablement cola 

D'eu Jetome3de Ja collection «APPLE »», langcge machine et 
assembler du 6502, par Nicole BreWPouliquen et Daniel- 
Jean David, 

Une bonne initiation, un peu aride parfois (les auteurs soven!, 
e'est certain.,, mais le lecteur est ignare par definition... 
alors !), Il n'empeche que ]e vous le recommande H et plutot 
deux fois qu'une, 

I'Assembleur facile du 6502 (Eyrolles) n'est pog aussl facile 
qu'if le laisse entendre. Francois Monteil a adopte une outre 
demarche. Personnellement, je souhaite, de b meme plume, 
une ceuvre uniquementconsaaee d ['Apple, 
ia Progrommatfon du 6502 (A,P. Stephenson, Dunod] est une 
traduction de 6502 ; MACHINE CODE FOR BEGINNERS, mais 
alors Id, chapeau ! Si vous nWi pas compris la structure des 
courtes routines qui y sont cloirement exposees, e'est unique- 
ment par manque d'attention, Vous deviez penser a vos 
amours. „ ou a lo fin du week-end, pos au 6502 ! 
Un ban conseH .'offrez-vous sans tarder cette Prog ram mat ion 
du 6502,., et potossez-fa. Cest un regal ! G-H. 




MICRO 



OftDlNATeURS 



Co 
Ret 



la pratique de V 

A P PI f II 

APPLE II pjus rt apple He 

5. :avgage machine 

£TASSEMBLEUR DU6502 



L'ASSEMBLEUR 
FACILE DU. 




Les deux ^ 
meiJIeurs ^ 



EFFACEMENT D'ECRAN 
PAR LA GAUCHE 



Programrnation etrange* 
Heureusemertt, le fangage machine 
est performant ! 



0300: 


A9 


00 




0302: 


85 


24 




0304: 


A2 


00 




0306; 


86 


25 




0303: 


20 


22 


FC 


030B: 


A? 


20 




030D: 


20 


FO 


FB 


0310: 


M 


25 




0312: 


E0 


17 




0314s 


F0 


09 




03163 


20 


66 


FC 


0319: 


20 


10 


FC 


031 C: 


4C 


08 


03 


031Fi 


A6 


24 




0321 : 


EO 


27 




0323: 


FO 


03 




0325i 


4C 


04 


03 


0328: 


AO 









1 

2 
3 
'1 
5 
6 
7 
8 
9 
10 

M 

12 
13 
14 
15 
1,5 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



****************************** 

* EFFACEMENT DE L' EC RAN * 

* DE GAUCHE A DR01TE * 

* * 

* Quy-hache t te f£u 85 * 
****************************** 
* 



* 

UTAB 
STORAW 
LF 
BS 



ASSEMBLAGE 



BOUCLES 



BOUCLE2 



P01NTH 



FIN 



ORG 


$300 




EQU 


$FC22 ; 


A la ligne sp£ct<fi£e dans CU $25 


EQU 


$FBF0 ; 


Af-fichage plus d^plac. curseur 


EQU 


$FC66 | 


A I a 1 i gne su 1 vante 


ERU 


$FC10 ; 


Une position k gauche 


LDA 


£$00 ; 


Initial i sat i on CH 


STA 


$24 ; 


Hor i zontal ement 


LDX 


£$00 i 


Pour partir la 1 i gne O 


STX 


$25 j 




JSR 


UTAB 




LDA 


£$20 ; 


Poke 780 a partir du basic 


JSR 


STGRADU 




LDX 


$25 j 


Dti en sormrres-nous uert i cal ement? 


CPX 


£$17 


23em& 1 i gne ou pas ? 


BEQ 


P01NTH | 


Si on i , on avance cTune colonne 


JSR 


LF 


S i non , ligne su i van te ■ * . 


JSR 


BS 


En reculant d'une case 


JMP 


B0UCLE2 


t Et £a repart ! 


LDX 


$24 


0& en sont les horizontal]* ? 


CPX 


£$27 


,3?eme position ou pas ? 


BEQ 


FIN 


Si egalite, on a terming 


JMP 


BOUCLE3 


;Retour a 1 a 1 i gne 


RTS 







Table des symbols ordre alphabet ique 

-BOUCLE1 , . .$0304 -B0UCLE2, . .$0308 
-LF $FCo4 -POINTH $031 F 



-BS $FC10 -FIN .$0328 

-5TQRADU . . .$FBFQ -VTAB, .... .$FC22 



Page 5.— CATFREE 

Si vou5 utilisez un autre SLOT que le SLOT 6, procedci dfi la moniere 
suivaiite pour modifier votre programme definitivement : 

- ELOAD CATFREE 

- POKE 735, SLOT " 16 (vou$ modifiez oinsi le conteny de I'adresse $311]. 

- B5AVE CATFREE, A$3Q0, L$&4. 



GUY-HACHETTE 



JEU (page 27},— Void la ligne 1 20 Corrig£e S 
120 IN = AC * I : MO = RA + IN : C = C + IN : AC = 
AC — RA 

JEU (pag^ 45). — Ligne 360 : Par pitie, accordez une ligne 
spedale (365 par exemple) 6 co NEXT, maladroitement 
place 1 opres un IF... 

llllllflllllllllllllHIIIIIIIlMIIIlHIIIHHIII 

62 



Aff ichage accelere 

en langage machine 



Pour quelqves octets deplus, oiirei vn cadre a vos menus. 
Apartirdu Baste ; 

BLOAD CADRE r puis CALL M ou r dirertement, BRUM CADRE. 
PAGE SUIVANTE, version avec saisie d'un caractere. 



SI vous ne 
disposer pas d'un 
assembteur, 
tapez seulement 
Cetle oolonne puis 
sduvez voire 
routine par un 
BSAVE CADRE I P 
A$300, L$2F 



0300 : 
0303: 
0306: 
0309: 
030C: 



20 58 FC 
20 0D 03 
2D 1A 03 
20 0D 03 
60 



A2 00 
A9 20 
20 F0 FB 



030D 
030F 
0311 
0314: E8 
0315s E0 28 
0317; DO F6 
0339s 40 



031A: 
031C: 
031F: 
0321 : 
0323: 
0325; 
0328; 
032Ai 
032C: 
032E: 



A9 
20 
A2 
84 
A? 
20 
A5 
C9 
DO 
60 



20 
FO 
27 
24 
20 
F0 
25 
16 
EC 



FB 



FB 



a 
i 

7 
3 

4 
5 
6 
7 
8 
9 
10 

a 



***************** ******* 
* 
* 

* 

* Guy Ha 
******** 
* 



TRACER UN CADRE 
EN MODE IMMERSE 

chette - Fourier 
**************** 



****** 
* 
* 
* 
* 

85 * 
****** 



ASSEMBLAGE 
par ProCODE 



* 

ORG 
LIGNE 
12 EXTREM 
5 3 HOME 

14 AFFIC 

15 * 
16 

17 
18 
19 
20 

21 * 
22 

23 B0UCLE1 

24 

25 

26 

27 

28 

29 * 
30 
31 
32 
33' 
34 
35 
36 
37 
38 
39 



B0UCLE2 



ORG $300 

EQU $300 

EQU ORG+$QD 

EQU DRG4*1A 

EQU $FC5B 

EGU *FBF0 

JSR HOME 

JSR LIGNE 

JSR EXTREM 

JSR LIGNE 
RTS 

LDX £$00 

LDA £$20 

JSR AFFIC 
I NX 

CPX £$28 

BNE BOUCLEi 
RTS 

LDA £$20 

JSR AFFIC 

LDX £$27 

STX $24 

LDA £$20 

JSR AFFIC 

LDA $25 

CMP £$16 

BNE B0UCLE2 
RTS 



ill suf-fira de modifier ORG. . . 
;Trace" de la ligne complete 
;Seulement Us extr$roit£s 

f A-f -f i chage 4 cfgpl acement curseur 



; Re tour au bercai 1 

;Pre>aration de la boucle 
jEspace en mode inverse 



;Longueur de 1 a 1 igne 



;Tqu j ours 1 ' espace 

;Une position avant fin de 1 igne 
fCH; posit, hor. du curseur i i x£e 
;Chargement de 1 "espace 

;CV : position vert, du curseur 
;En sommes-nous a Ta T igne 22 ? 
[Si non on recommence 
;LE CADRE EST TERMINE (47 OCTETS) 



Table des symbols ordre alphabet ique 



-AFFIC $FBF0 

-HOME $FC58 



-BGUCLE1. ,.$03QF 
-LIGNE $030D 



table des symboles ordre numerique 



ORG $0300 

BOUCLE2,. i $031A 



-LIGNE . P , ..$030D 
-AFFIC $FBF0 



-B0UCLE2- . -$031A 
-ORG tO 300 



-BOUCLEI . , .$Q30F 
-HOME - . . . . .$FC58 



-EXTREM $031A 



EXTREM * . . .$G31A 



TREMPUN MICRO 



WlllllllllNllllMHIIIIItlllllli 



wmmmmmmmmm 



Si vous no 
dispose? pas d'un 
assembieur, 
topex seulemeni 
tetfo col on puis 
sauvez votre 
routine par un 
BSAVE CADRE 2, 
A$3Q0, L$34 



0300: 
303: 
0306: 
0308: 
0308: 
030E: 
0311 : 

0312: 
0314: 
0316: 
0319: 
Q31A: 
031C: 
031E: 



20 
20 
A5 
20 
20 
20 
60 

A2 
A5 
20 
E8 
E0 
DO 
<S0 



58 
OC 
06 
12 
IF 
12 



00 
06 
F0 

28 
l : 6 



FC 
FD 

03 
03 
03 



FB 



031F; A5 06 
0321 r 20 F0 FB 
0324s A2 2? 
86 24 
A5 06 
20 F0 FB 



0326: 
0328: 
032A: 
032D: 
032Fs 
0331 > 
03333 



A5 25 
09 16 
00 EC 
60 



u 
1 
2 
3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

3? 

40 

41 

42 
43 



*********************** ******* 

* * 
TRACER UN CADRE 

CARACTERE SAISI ALP CLAUIER 
APRES APPEL DE LA ROUTINE 

* * 
Guy Haehette - Fourier 85 * 

a**************** ************* 



ASSEMBLAGE PAR ProCODE 



* 

ORG 

LIGNE 

EXT REM 

SAISIE 

HOME 

AFFIC 

* 



ORG $300 

EQU $300 
EQU GRG+$12 
EQU 0RG+$1F 

EQU $FO0C 

EQU $FC58 

EQU $FBF0 

JSR HOME 

JSR SAISIE 

LDA $06 

JSR LIGNE 

JSR EXT REM 

JSR LIGNE 
RTS 

LDX £$00 

LDA $06 

JSR AFFIC 
INX 

CPX £$26 

BNE B0UCLE1 
RTS 



B0UCLE2 LDA $06 

JSR AFFIC 

LDX £$27 

STX $24 

LDA $06 

JSR AFFIC 

LDA $25 

CMP £$16 

BNE B0UCLE2 
RTS 



BOUCLE1 



ill suffira de modifier ORG,,. 
;Trace de la ligne compute 
;Seulement les ex t rem i Us 
fLecture d'une touche 

fAffichage + d&placement curseur 



|Pas de contrftle de preyu 
iStockage en page 



jRetour au bercai I 

iPreparation de la boucle 
;R£cupe>at i on caractere 



iLongueur de fa I igne 



iToujours le caractere 

;Une position avant fin de tigne 
;CH; posit , hor , du curseur -fixee 
jEncore le caractere (terming) f 

iC^: position uert, du curseur 
;En sommes-nous k la ligne 22 ? 
;SI non on recommence 
;LE CADRE EST TERM1NE <52 OCTETS) 



Table de* symbol** ordre al phabet i que 



-AFFIC $FBF0 

"HOME $FC59 



-B0UCLE1 . ( .$0314 
■LIGNE . , . . .$0312 



table dts symboles ordre n 



umer i que 



~ 0RG *03D0 -LIGNE. . , , .*03J2 

-B0UCLE2..,$03IF -AFFIC $FBF0 



BOUCLE2...$031F 
ORG. ..... ,$0300 



B0UCLE1 , . .$0314 
HOME $FC5S 



-EXTREM. . . .$031 F 
-SAISIE.... $FD0C 



-EXTREM..,.$031F 
-SAISIE,.. .$FD0C 



GUY-HACHETTE 



mmi 



tremplin 
micro 



SON DACE 



1 



Les renseignements concemant voire identite et 
votre adresse ne seront en aucun cas communiques 
a une soaete strangers aux EDITIONS JJBENA. 



QUI ETES-VOUS ? 



- Faeuftatif 



Nom * ■ ■ ■ Prenom* 

Annee de noissance Sexe 

Profession 

Adresse* 

Code postal I I I I I | Ville 



VOTRE MATERIEL 



Marquar d'una X t&s caios qui yqus cancornoni. 

□ Apple II □ Apple II H- □ Apple He □ Apple II 

□ Apple III □ Macintosh □ Lisa 
Autres : 



65 



VOS OUTILS 



Citez les quatre logiciels que vous ufilisez le plus souvent par 
ordre de preference. 



ANCIENNETE 



Cacher ivs cosot do vatr&tholx. 



Depuis combien de temps poss£dez-vous un ordinateur personnel ? 
Concevez-vous des programmes ? I QUI 



Langoge 



BASIC 




AUTRE 





PASCAL 



NON 







LOGO 



Precisez 



Programmez-vousen LANGAGE MACHINE ? 



OUI 



Utilisez-vous un assembleur 7 


OUI 




LISA 






BIG MAC 






MERLIN 





NON 



TOOLKIT 



FroCQD EjJ 



TREMPLIN MICRO 



drHlHflllllflfllHVHHiflllllllflVHIM' 

tremplin 
micro 



INTENTIONS D'ACHAT 



Que souhaitez-vous acquerir, au cours des 6 prochains mois, 
en mati&re d'informotique personnelle ? 



RUBRIQUES PREFEREES 



Entaurez, les numeros des pages qui vous ont le plus interesse dans ce numero 1 . 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 
Indiquez-moi le numero des pages qui vous auront semble (es moins interessantes : 

Morci de votre collaboration amicalo ! 



Bulletin de commande et d'abonnement 

Norn Pr6nom 

Adresse complete - 

Codepostal I 1 I I I I Ville - ■ 



1 


Abonnement 6 5 numeros (un an) : FRANCE 


150 F 


1 


DISQUETTE N°l de TREMPLIN MICRO 

(Pour APPLE tie et lie J 


105 F 


Royer la ou fes mentions inutites FraiS d'eTlVOi (gratllit A patlir de 150 F) 

Total a payer . . 


+ 10F 



Merci de libeller voire reghment d i'ordre de TREMPLIN MICRO / Editions JIBENA 
Mode de reglemenf chohl : O Cheque D Mandat-lettre O Carte Bleue 









II i 1 i II i 1 1 






N° de vol re Carte Bleue 1 


l 1 l 




VISA 


Doto d'oxplratior* [ 
Montant a debitor 


1 

F 


Signature (obllgotolra) 











Bulletin 6 retourner a : TREMPLIN MICRO — Senille — 86100 CHATELLERAULT 



GUY-HACHETTE 
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Des magazines de jeux extra 



En vente 
chez votre 
marchand 
de journaux 




TREMPLIN MICRO — Bimestriel — C'est une publication des Editions JJBENA, 4, rue de la Cour-des-Noues, 
75020 PARIS — 5.A. du capital de 3600000 P — Imprirne par CITE-PRESS/PARIS — Depot legal a la date de 
partition — Inscription a la Commission Paritoire des Publications et Agences de Presse ; en cours — 
Dlrecteur de la Publication : Guy-Clement COGN£ — Diffusion N,M,P + P, 



